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I .  INTRODUCTION 


.u-.y*  .  >  ,h  .»>  . 


The  two  dimensional  optical  processing  techniques  using  one  dimensional 
input  devices  discussed  by  Demetri  Psaltis  [1,2]  in  several  of  his  papers 
were  used  as  a  starting  point  for  the  following  hybrid  design.  Graeme  Duthie's 
knowledge  of  the  Psaltis  research  instigated  this  work  while  he  was  at  the 
U.S.  Army  Missile  Command. 

This  design  approach  breaks  out  of  the  binary  correlation  world  previ¬ 
ously  implemented  in  hybrid  systems  to  use  some  of  the  dynamic  range  capa¬ 
bilities  of  the  light  emitting  diodes  and  charge  couple  device  (CCD)  arrays. 

It  also  makes  use  of  the  strong  points  of  both  optical  and  digital  correlators 
and  bypasses  some  of  their  shortcomings. 

II.  SYSTEM  ARCHITECTURE 

The  major  components  of  the  system  are  depicted  in  Figure  1.  A  photo¬ 
graph  of  the  optical  bench  is  presented  in  Figure  2.  Top  and  front  views  of 
the  electronic  rack  are  shown  in  Figures  3  and  4.  The  electronic  rack  layout 
with  a  front  panel  view  is  shown  in  Figure  5,  and  schematics  of  the  digital 
control  cards  are  in  Figures  6,  7  and  8.  Schematics  for  ADC/Video  processing, 
the  correlator  reference  memory,  and  LED  driver  card  are  shown  in  Figures  9, 

10,  and  11.  There  are  two  CCD  TV  cameras  used.  The  first  camera  is  to  image 
the  input  scene,  and  the  other  is  for  collecting  and  generating  the  output 
correlation  surface.  The  acoustooptic  cell  (AOC)  receives  Input  from  a  fix¬ 
ture  of  64  fiber  optic  filaments  in  a  linear  array  and  from  the  input  camera 
video.  The  fiber  optic  filaments  are  attached  to  a  light  emitting  diode  (LED) 
array  being  modulated  by  the  digital  reference  memory.  Each  LED  transmits  a 
single  image  line  from  the  reference  array.  The  reference  memory  is  inter¬ 
faced  to  a  host  computer  for  testing  purposes.  The  video  of  the  input  camera, 
while  in  reference  store  mode,  is  typically  used  to  generate  a  reference  image 
via  the  analog  to  digital  (A/D)  converter  in  a  single  field  time.  In  normal 
operation  the  input  camera  video  is  converted  for  input  to  the  AO  cell  only. 

A.  Video  Source 

The  input  video  camera  is  a  NEC  TI22AII/22PII  CCD  camera.  The  video 
is  in  standard  RS170A  format  scanning  490  vertical  and  384  horizontal  picture 
elements  (pixels).  The  video  is  not  direct  current  restored,  requiring  addi¬ 
tional  circuity  prior  to  the  analog  to  digital  converter  stage. 

B.  Acoustooptic  Cell 

The  AO  cell  is  made  up  of  two  major  components,  the  modulator  driver, 
and  the  large  aperture  high' resolution  Bragg  cell.  The  Bragg  cell  aperture 
time  is  70  microseconds  (us),  approximately  7.5  us  longer  than  one  TV  line. 

The  AO  cell  needed  a  one-volt  (V)  analog  source  requiring  a  clipping 
circuit  to  takeoff  the  video  sync.  This  circuit  is  shown  in  Figure  9. 

The  reference  illumination  over  the  AO  cell  window  during  every  hori¬ 
zontal  blanking  time  provides  a  convolution  in  the  horizontal  direction  over 
each  line  in  the  source  video  image. 
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C.  Output  Camera  Video 


The  output  video  camera  is  a  Fairchild  CCD  3000  camera  with  an  in¬ 
tegral  thermoelectric  cooler.  The  camera  provides  NTSC  television  video  with 
Interlaced  fields,  scanning  488  lines  and  380  pixels  per  line. 

The  camera  receives  its  input  from  the  AO  cell's  convoluted  results 
on  a  per  element  basis.  The  camera  was  modified  by  disconnecting  and  then 
grounding  the  photogate  clock  input,  thereby  allowing  an  integration  in  the 
vertical  scan  direction  producing  the  complete  two-dimensional  correlation 
surface. 


D.  A/D  Converter  Module 

Prior  to  the  A/D  conversion  the  video  from  the  NEC  camera  had  to  be 
dc  clamped  as  shown  in  Figure  9.  The  A/D  converter  used  was  the  TRW  TDC1007P1C 
providing  8  bits  per  sample.  The  sample  clock  was  the  NEC  CCD  camera  pixel 
clock  of  approximately  7.16  megahertz. 

E.  Reference  Memory 

The  reference  memory  is  configured  into  64  1024  by  8  bit  memories. 

Each  64  by  128  is  selectable  through  a  thumbwheel  switch  on  the  front  panel. 
Eight  separate  references  can  be  stored. 

Memory  Operation 

In  reference  store  mode  the  memory  selected  by  the  thumbwheel  switch 
is  enabled  and  stores  the  incoming  digitized  video  pixels  serially.  The  size 
of  the  input  reference  is  dependant  on  two  sets  of  thumb-wheel  switches  on  the 
front  panel.  The  maximum  size  of  the  reference  is  64  lines  and  73  pixels. 

The  vertical  dimension  is  limited  by  the  number  of  LEDs  and  memory  in  that 

axis.  The  horizontal  dimension  is  limited  by  the  pixel  clock  from  the  NEC 
camera  which  can  clock  this  finite  number  of  pixels  as  a  maximum  during  the 
horizontal  blanking  time.  The  reference  can  be  smaller  as  desired  by  the 
operator.  An  enhanced  area  on  the  TV  monitor  shows  the  video  area  being  used 
as  the  reference  when  storing  into  memory.  In  operational  mode  the  selected 
reference  memory  is  readout  in  parallel.  All  reference  lines  are  readout 
simultaneously  during  every  horizontal  blanking  Interval. 

F.  Digital  to  Analog  Driver  (D/A),  LED,  Fiber  Optics 

Each  memory  chip  is  connected  to  a  light  emitting  diode  (LED)  via  a 
D/.A  converter  buffered  by  a  high  bandwidth  driver.  The  LED  is  bonded  to  a 

fiber  optic  filament.  The  64  fiber  optic  filament  ends  are  placed  in  a  linear 

fixture  aligned  vertically. 
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III.  GENERAL  DESCRIPTION  AND  OPERATION  ' 

The  lower  right  of  Figure  5  shows  the  front  panel  with  controls: 

a.  VAX  (Host)/LOCAL  switch 

o  VAX  -  When  in  VAX  mode  the  user  can  upload  the  reference  memory 
to  the  host  for  display  or  storage,  etc.  The  memory  can  also  be  downloaded 
for  testing  previously  stored  images  or  to  test  matched  spatial  filters. 

o  LOCAL  -  When  in  LOCAL  mode  the  system  is  either  storing  a  refer¬ 
ence  image  or  correlating  the  selected  reference  with  the  input  video.  The 
LOCAL  mode  is  referred  to  in  the  text  as  the  operational  mode. 

b.  LOCAL  READ/WRITE  switch  is  activated  ONLY  when  the  VAX/LOCAL  switch 
is  in  the  LOCAL  position. 

o  LOCAL  READ  -  In  this  position  the  selected  reference  memory  is 
being  read  for  correlation. 

o  LOCAL  WRITE  -  In  this  position  the  selected  reference  memory 
is  being  written  with  the  upper  left-hand  subimage  of  the  input  video.  The 
area  being  stored  is  enhanced  on  the  display. 

c.  REF  -  A  thumbwheel  switch  to  select  the  reference  memory  to  use. 

d.  VERT  -  A  set  of  thumbwheel  switches  to  select  the  size  of  the  refer¬ 
ence  image  up  to  64  lines.  These  switches  should  be  set  from  0  to  63. 

e.  HORIZ  -  A  set  of  thumbwheel  switches  to  select  the  size  of  the  refer¬ 
ence  image  up  to  approximately  73.  This  setting  is  defined  by  the  clock  refer¬ 
ence  divided  into  the  horizontal  blanking  time  as  a  maximum. 

The  upper  part  of  Figure  5  shows  the  board  layout  in  the  electronic  rack. 
The  LEDs  are  inserted  in  the  "LED  OUTPUT  PANEL"  on  the  back  of  the  rack  as 
shown. 
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IV.  ALIGNMENT  OF  LED  GAIN  AND  BIAS 

The  setting  of  the  dynamic  range  of  the  light  emitting  diodes  is  critical 
to  the  overall  correlation  performance.  Each  LED  has  its  own  characteristics 
which  requires  an  individual  gain  bias  setting.  The  following  steps  are  re¬ 
quired: 

a.  Prior  to  removing  or  inserting  any  of  the  boards  the  power  should  be 
turned  off  and  the  correct  orientation  of  the  board  in  the  rack  must  be  ob¬ 
served. 

b.  Each  driver  board  should  be  put  on  an  extender  one  at  a  time, -leaving 
the  other  driver  boards  pulled  out  of  the  rack.  There  are  io  LED  drivers  per 
driver  board.  Figure  4  shows  the  driver  boards  in  slots  11  through  14. 

c.  Two  individual  memory  boards  are  used  per  selected  driver  board, 
therefore  one  of  these  must  be  put  on  the  extender  at  a  time.  Figure  5  shows 
the  memory  boards  in  slots  3  through  10.  Memory  boards  3  and  4  are  used  with 
driver  boards  in  slots  3  through  10.  Memory  boards  3  and  4  are  used  with 
driver  board  11,  memory  boards  5  and  6  are  used  with  driver  board  12,  memory 
boards  7  and  8  are  used  with  driver  board  12,  and  memory  boards  9  and  10  are 
used  with  driver  board  14. 

d.  The  front  panel  LOCAL  READ/WRITE  switch  should  be  set  to  READ. 

e.  The  VAX/LOCAL  switch  should  be  set  to  VAX. 

f.  The  SELDAT  routine  is  used  to  load  the  memory  with  a  constant  of  all 
bits  high  377  octal.  (Appendix  A.) 

g.  The  VAX/LOCAL  switch  is  now  switched  to  LOCAL. 

h.  Each  LED  driver  output  is  examined  to  determine  the  voltage  range 
across  the  LED.  The  GAIN  potentiometer  on  the  memory  board  and  the  bias 
potentiometer  on  the  driver  board  are  adjusted  first  to  ensure  that  the  volt¬ 
age  swing  is  always  positive. 

i.  The  GAIN  potentiometer  can  then  be  set  to  allow  about  a  300  milli¬ 
volts  pulse  swing.  The  BIAS  can  then  be  set  to  where  the  light  is  just  turned 
off  on  the  LED  output.  This  defines  the  turnoff  bias  point  for  the  diode. 

j.  The  GAIN  and  BIAS  are  then  set  such  that  the  LED  output  is  a  known 
constant  brightness  determined  by  the  CCD  camera  video  scan,  and  the  turnoff 
level  is  set  to  the  now  known  turnoff  bias. 

k.  In  order  to  adjust  adjacent  LEDs  the  bias  can  be  brought  down  until 
all  diodes  are  adjusted  then  brought  backup  to  the  known  turnoff  bias  point 
for  operation. 

l.  All  the  above  steps  are  repeated  until  each  LED  alined. 


V.  OPTICAL  LAYOUT  AND  SPECS 

The  optical  system  consists  of  two  spherical  and  three  cylindrical  lenses 
as  shown  in  Figure  12.  The  focal  lengths  of  these  five  lenses  are  required 
to  yield  the  relations.  It  accounts  for  interlace  effects  as  discussed  in 
reference  [3]. 
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and 


t—  between  0.294  and  0.356. 

*3 

Also,  the  total  length  of  the  optical  train  must  be  less  than  48  in.,  the 
minimum  element  spacing  must  allow  room  for  the  optical  mounting  fixtures  and 
varies  from  60  millimeter  (mm)  for  f2  and  f5  to  100  mm  for  the  others,  and 
provision  for  adjustment  must  be  included  in  the  mounts. 

VI.  CONCLUSION 

Discussion  of  Optical  Effects,  System  Performance,  and  Laboratory  Results 

The  Incoherent  correlator  operates  on  optical  intensity  rather  than  am¬ 
plitude,  and  thus  all  of  the  image  processing  is  performed  with  positive  real 
signals.  This  causes  an  unavoidable  background  signal  bias  level  to  be  pre¬ 
sent,  and  this  is  a  fundamental  property  of  all  Incoherent  optical  processors. 
The  actual  correlation  signal  thus  rides  on  a  strong  background  signal  which 
is  a  function  of  scene  brightness,  and  the  structure  of  the  numerous  cross- 
correlations  of  the  reference  target  image,  and  other  nontarget  images  present 
in  the  input  scene.  The  experimental  results  showed  that  the  highly  struc¬ 
tured  cross-correlations  were  much  stronger  than  the  desired  target  correla¬ 
tion  because  the  input  scene  was  several  times  larger  than  the  reference 
image,  and  had  at  least  as  much  dynamic  intensity  range  and  structural  scene 
elements.  This  severely  degraded  the  ability  of  the  incoherent  correlator  to 
discriminate  the  target  from  the  nontarget  scene  elements. 

Another  major  problem  was  the  overall  spaclal  resolution  capability  of 
the  correlator.  The  finest  detail  that  It  could  successfully  process  was  on 
the  order  of  ten  pixels,  and  thus  it  was  an  extremely  low  spaclal  bandpass 
system.  While  the  basic  dynamic  function  of  correlation  was  achieved,  the 
low  special  bandpass  prevented  the  system  from  being  able  to  take  advantage 
of  the  high  spaclal  frequency  content,  and  the  observed  correlations  were 
extremely  low,  broad,  and  barely  visible  against  the  high  bias  background, 
and  indistinguishable  from  the  unwanted  cross-correlations.  The  reason  for 
this  loss  of  spaclal  detail  is  that  all  acoustooptic  optical  systems  have 
much  poorer  imaging  properties  than  ordinary  systems  and  coherent  optical 
systems.  The  requirements  are  extremely  severe  for  such  optical  systems  to 
achieve  even  modest  image  quality.  Since  the  incoherent  correlator  requires 
exact  relmaging  at  the  output  CCD  plane,  but  with  markedly  different  scales 
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horizontally  and  vertically.  It  was  not  possible  to  achieve  high  spaclal  fre¬ 
quency  transfer  with  the  commercially  available  anamonphic  optical  lenses. 

The  lenses  required  to  meet  this  stringent  image  quality  would  have  to  be 
fully  corrected,  diffraction-limited,  custom  built  optics,  and  their  cost  at 
the  current  time  was  far  beyond  the  scope  of  this  project. 

One  of  the  major  objectives  of  the  project  was  to  determine  the  prac¬ 
ticality  of  the  optical  system,  and  this  result  of  image  quality  degradation 
showed  that,  while  the  acoustooptic  incoherent  cortelator  could  be  built  and 
that  the  components  could  be  attained  with  state-of-the-art  techniques,  it 
was  not  a  cost-effective  design  in  practical  terms. 

The  results  of  the  electronic  design  implemented  is  shown  in  Figures  13, 
14,  and  15.  These  signals  produced  the  limits  of  the  reference  data  spatial 
frequencies.  The  output  was  produced  using  a  photodiode  "looking"  into  the 
LED  array.  Several  optimization  ideas  which  would  improve  electronic  perform¬ 
ance  were  discussed,  but  in  view  of  the  previous  discussion  on  the  optical  per¬ 
formance,  were  not  implemented. 

In  addition,  unpublished  communications  concerning  two  other  research 
projects  to  build  the  same  Psaltls  architecture  were  received  after  this 
MICOM  project  was  completed.  Both  of  these  projects,  (Sandla  National  Lab¬ 
oratories  and  General  Dynamics),  reported  unsuccessful  results  and  indicated 
that  their  AO  cells,  which  were  identical  to  those  used  in  the  MICOM  project, 
were  at  least  partially  at  fault.  Other  problems  were  implied  (an  effort  is 
being  made  to  obtain  further  information)  with  this  architecture.  In  view  of 
the  fact  that  three  independent  research  projects,  unknown  to  each  other  at 
the  time,  all  obtained  the  same  unsuccessful  results  when  the  original  Psaltis 
architecture  was  implemented  in  hardware.  It  is  concluded  that  this  approach 
to  a  real  time  incoherent  correlator  with  an  undatable  reference  image,  is 
unfeasible  in  practice.  We  recommend  no  further  research  on  this  particular 
architecture,  and  instead  that  other  approaches  be  investigated. 
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APPENDIX  A 


BAR. FOR 


£************************************ ****************************************** 

* 


c 

C  THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 

C  ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 

C  A  NEGATIVE  NUMBER. 

C 

£##*#*******##*#******************************#********#****##***************** 


C155 

C 

33 

C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C  c 
c 
c 
c 


EXTERNAL  IO$WRITEVBLK, IOSREADVBLK 
INTEGER* 2  RBUF(8192) ,BUF(8192) ,IOSB( 4) 

INTEGER  SYS$ASSIGN,XTCHAN,SYS$QIOW,SYS$GETMSG 
BYTE  DAC( 64 ) 

CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

I STATUSES YS$ASSIGN( ' XTAO ' , XTCHAN , , ) 

IF( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
NWORDS-8192  t  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 
N-l 

TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 
READ (5,33) DAC ( N ) 

F0RMAT(I2) 

DAC(N)-31 

IF(DAC(N) . GT . 0 ) THEN 

N-N+l 

GO  TO  155 

END  IF 

N-N-l 

DO  J-l,nwords 

BUF(J)-'0'O 

ENDDO 

1-1 

DO  I-1,N 

TYPE  * , ' DAC  NUMBER-' ,DAC( I) 

DO  K-l+(  ( DAC  ( I)-l)*128)  ,  128+(  ( DAC(  I  )-l )  *128 ) 

BUF(K)-'100'O 

ENDDO 

ENDDO 

DO  K-l+{ (DAC( I)-l) *128 ) , ( ( 128+( (DACl I )-l ) *128 ) )/2)-l 

BUF ( R ) -0 

ENDDO 

DO  K-( { 128+ ( ( DAC( I ) -1 ) *128 ) )/2)-l,128+( ( DAC( I )-l ) *128 ) 

BUF(K)-0 

ENDDO 


SUF(Z)-'377'0 
END  DO 

C  BUF( 4000-128)-' 377'0 

ZSTATUS-SYS$QZOW( %VAL( 1 ) , % VAL ( XTCHAN ) , %VAL( %LOC( ZO$WRZTEVBLK) ) , ZOSB 
lBUF ( 1 ) , %  VAL ( NBYTES ) , , , , ) 

ZF( .NOT. Z STATUS. OR. .NOT.ZOSB(l) )THEN 
ZSTATUS-SYS$GETMSG  (% VAL (Z STATUS ) ,  MSGLEN,  MSGBUF, , ) 

TYPE*,'  Z STATUS— ' , ZSTATUS , '  ZOSB( 1 )-' , ZOSB( 1 ) 

TYPE  ZSTATUS-' , ZSTATUS, '  Z0S8( 1 )-' , ZOSB( 1 ) 

ZP( .NOT. ZSTATUS)  TYPE  *, 'ERROR  ZN  CALL  TO  $GETMSG ' 

TYPE  *, 'QZO  PARAMETER  STATUS : ' , MSGBUF 
MSGBUF- '  ' 

ZSTATUS— SYS$GETMSG  ( %VAL( ZOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

ZF( .NOT. ZSTATUS)  TYPE  *, 'ERROR  ZN  CALL  TO  $GETMSG ' 

TYPE  * , ' Z/O  STATUS:', MSGBUF 

ZF(  .NOT. ZSTATUS )-TYPE*, 'PARAMETER  ERROR  ZN  XT  OUTPUT' 

ZF( .NOT.ZOSB(l) )TYPE  *,'Z/0  ERROR  ZN  XT  OUTPUT' 

■  END IF 

1111  ZSTATUS— SYS$QIOW(  %VAL  ( 1 ) ,  %VAL(  XTCHAN )  ,  %VAL-(  %LOC(  ZO$READVBLK )  ) , 

1ZOSB, , , 

1RBUF(1) ,%VAL( NBYTES) , , , , ) 


APPENDIX  B 


BAR2 . FOR 


C****************************************************************************** 

C 

C  THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 

C  ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 

C  A  NEGATIVE  NUMBER. 

C 

Q* ******* ********************************************************************** 

EXTERNAL  IO$WRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) ,  IOSB(  4 ) 

INTEGER  SYS$ASSXGN , XTCHAN , SYS$QIOW, SYS$GETMSG 
BYTE  OAC(64) 

CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

I STATUSES YS$ ASS IGN( ' XTAO ', XTCHAN , , ) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

NWORDS-8192  I  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

Cl 5 5  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

C  READ (5,33) DAC ( N ) 

33  F0RMAT(I2) 

DAC(N)-31 

C  IF(DAC(N) . GT.0)THEN 

C  N-N+l 

C  GO  TO  155 

C  END IP 

C  N-N-l 

DO  J-l,nwords 
BUF(J)-'0'O 
END  DO 

1-1 

C  DO  I-1,N 

TYPE  *, 'DAC  NUMBER-' , DAC ( I ) 

C  DO  K-l+( (DAC( I )-l ) *128 ) ,128+( (DAC( I )-l ) *128 ) 

C  BUF( K )— ' 100 '0 

C  ENDDO 

C  ENDDO 

C  DO  K-l+( { DAC( I)-l)*128),((128+(( DAC( I )-l ) *128 ) )/2 )-l 

C  BUF ( K ) -0 

C  C  ENDDO 

C  DO  K-( ( 128+ ( ( DAC( I )-l ) *128 } )/2 )-l , 128+( ( DAC( I ) — 1 ) *128 ) 

C  BUF ( K ) -0 

C  ENDDO 


BAR2.F0R 


DO  1-31,8192-95,128 
BUF(Z)-'377'0 
BUF(Z+l)-'377'0 
END  DO 

C  BUF(4000— 128)-'377'0 

ZSTATUS— SYS$QZOW( WAL( 1) , t  VAL ( XTCHAN ) , %VAL( %LOC( ZO$WRZTEVBLK) ) , ZOSB,  ,  , 
1BUF(  1 )  ,  %VAL(NBYTES ),,,,) 

ZF( .NOT. Z STATUS. OR. .NOT. ZOSB( 1 ) )THEN 

ZSTATUS— SYSSGETMSG  ( t VAL { Z STATUS ) ,  MSGLEN,  MSGBUF, , ) 

TYPE  ZSTATUS-' , ZSTATUS, '  ZOSB( 1 )-' , ZOSB( 1 ) 

TYPE  *,'  ZSTATUS-' , ZSTATUS , '  ZOSB( 1 )-' , Z0SB<1 ) 

ZF( .NOT. ZSTATUS)  TYPE  *, 'ERROR  ZN  CALL  TO  $GETMSG' 

TYPE  *,'QZ0  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ZSTATUS— SYS "GETMSG  (%VAL(ZOSB(l) ) ,  MSGLEN,  MSGBUF,,) 

ZF( .NOT. ZSTATUS)  TYPE  *, 'ERROR  ZN  CALL  TO  $GETMSG' 

TYPE  *,'Z/0  STATUS:', MSGBUF 

ZF( .NOT. ZSTATUS )TYPE*, 'PARAMETER  ERROR  ZN  XT  OUTPUT' 

ZF( .NOT. ZOSB ( 1 ) )TYPE  *,'Z/0  ERROR  ZN  XT  OUTPUT' 

END  IF 

1111  ZSTATUS-SYSSQZOW( %VAL( 1 ) , % VAL ( XTCHAN ) , %VAL ( %LOC ( ZO$READVBLK ) ) , 

1ZOSB, , , 

1RBUF( 1 ) , % VAL ( NBYTES ),,,,) 

END 


B-2 


APPENDIX  C 
CDACTEST.FOR 


APPENDIX  C 


CDACTEST . FOR 


EXTERNAL  IO$WRITEVBLK, IOSREADVBLK 
INTEGER* 2  RBUF ( 8192 ), BUF ( 8192) , IOSB( 4 ) 

INTEGER  SYSSASSIGN , XTCHAN , SYSSQIOW, SYS$GETMSG 
CHARACTER* 80  NSGBUF 
DATA  I TIMES/0/ 

ISTATUS-SYS$ASSIGN( ' XTAO '  , XTCHAN , , ) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept*, nwords 
nbytes«2*nwords 
do  100  i test-1, 5 
continue 

DO  J-l, nwords 
buf(j)-< j-l)*2 
if ( itest.eq. 1)BUF(J)-J 
if ( itest.eq. 2 )buf( j )-0 
if ( itest.eq. 3 )buf ( j )-' 377'o 
if ( itest.eq. 4 )buf( j )-'125'o 
if ( itest.eq. 5) buf( j)-'052'o 
END  DO 

ISTATUS-SYSSQIOW( %VAL ( 1 ) , IVAL ( XTCHAN ) , I VAL ( «LOC ( IOSWRITEVBLK ) ) , IOSB , , 
1BUF ( 1 ) , % VAL ( NBYTES ),,,,) 

IP ( . NOT . ISTATUS . OR . . NOT . IOSB ( 1 ) ) THEN 
I STATUSES YSSGETMSG  (% VAL ( ISTATUS ) ,  11SGLEN ,  MSGBUF , , ) 

TYPE  *,'  ISTATUS-', ISTATUS,'  IOSB( 1 )-' , IOSB( 1 ) 

TYPE  *,'  ISTATUS-', ISTATUS,'  IOSB( 1 )-' , IOSB( 1 ) 

IP( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  * , 'QIO  PARAMETER  STATUS :', MSGBUP 
MSGBUF- '  ' 

ISTATUS— SYS$GETMSG  ( »VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS:', MSGBUF 

IF( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

I F ( . NOT . IOSB ( 1 ) ) TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IOSREADVBLK) ) , 

1IOSB , , , 

1RBUF(1) ,%VAL( NBYTES ) , , , , ) 

DO  I— 1 , NWORDS 

IF( IAND( BUF( I ) , ' 377 '0) .NE. IAND( RBUF( I ) , ' 377 '0) )THEN 
WRITE( 6 , 11 ) I , IAND ( BUF ( I ) , ' 377 ' 0 ) , LAND { RBUF ( I ) , ' 377 ' 0 ) 

FORMAT ('**  MEMORY  R/W  ERROR  AT ',06,'  INPUT-' , IX, 06 , 

1'  OUTPUT-', 06) 


APPENDIX  D 


CFEQTEST.FOR 


EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGER* 2  RBUP(8192) ,BUP( 8192) , IOSB( 4) 

INTEGER  SYSSASSIGN , XT CHAN , SYSSQIOW , SYSSGETMSG 
CHARACTER* 80  MSGBUF 
DATA  I TIMES/0/ 

ISTATUS-SYS$ASSIGN( ' XTAO ' , XTCHAN , , ) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept*,nwords 
nbytes-2*nwords 
do  100  i test-1, 5 
continue 

DO  J-2,nwords,2 

BUF( J-l )-' 377 '0 

BUF ( J ) -0 

buf ( j )-( j-1 ) *2 

if  (itest.eq.DBOF(J)-J 

i £ ( i test . eq . 2 ) buf ( j ) -0 

if ( itest.eq.3)buf ( j )-'377'o 

if ( itest.eq.4)buf ( j )-'125'o 

if ( itest .eq. 5 )buf ( j )-'052'o 

END  DO 

ISTATUS-SYS$QIOW(%VAL(l)f%VAL(XTCHAN) , %VAL( %LOC( IOSWRITEVBLK) ) ,IOSB, 
1BUF ( 1 ) , %VAL ( NBYTES ),,,,) 

IF( .NOT. I STATUS. OR. .NOT.IOSB(l) )THEN 
ISTATUS-SYSSGETMSG  ( %VAL( ISTATUS) ,  MSGLEN,  MSGBUF, , ) 

TYPE  *,'  ISTATUS-', ISTATUS,'  IOSB( 1 )-' , IOSB( 1 ) 

TYPE  *,'  ISTATUS-',ISTATUS, '  IOSB(l )«' , IOSB(l ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  { %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF, , ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS : ' , MSGBUF 

I F ( . NOT . I STATUS ) TYPE* , ' PARAMETER  ERROR  IN  XT  OUTPUT ' 

IF( .NOT.IOSB(l) )TYPE  * , ' I/O  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL ( XTCHAN ) , %VAL( ILOC( IOSREADVBLK ) ) , 

1IOSB, , , 

1RBUF( 1 ), %VAL( NBYTES ),,,, ) 

DO  I— 1 ,NWORDS 

IF(IAND(BUF(I) ,'377'0) .NE. IAND( RBUF( I ) , ' 377 'O) )THEN 
WRITE ( 6,11)1, LAND ( BUF ( I ) , ' 377 'O) , IAND( RBUF( I ) , ' 377 '0) 


1 ■  «■• iL-t •<'-  ->  -V 

-  V  «»*  tS.K'.U*  <SAiKH< 1AWAW.fl.* I 

CFREQTEST . FOR 
11  FORMA1 


FORMAT( ' **  MEMORY  R/W  ERROR  AT', 06,'  INPUT- IX , 06 , 

1'  OUTPUT-', 06) 

END  IF 
ENDDO 

continue 

ITIMES— ITIMES+1 

type  * , 'memory  test  complete  with  the  above  errors. ', ITIMES, 
1'  ON' , NWORDS ,  '  LOCATIONS' 

GO  TO  1111 
END 


! 
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CMEMDUMP . FOR 
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Y 


APPENDIX  E 


CMEMDUMP . FOR 


EXTERNAL  XO$WRXTEVBLK , IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) , BUR ( 8192 ) , XOSB( 4 ) 

INTEGER  SYS$ASSIGN, XTCHAN, SYS$QIOW, SYS$GETMSG 
CHARACTER*  8  0  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( ' XTAO ' , XTCHAN , , ) 

IF( .NOT. ISTATUS)TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

TYPE  *, 'ENTER  NUMBER  OF  LOCATIONS  TO  DUMP' 

ACCEPT*, NWORDS 
NBYTES-NWORDS  *  2 

1111  ISTATUS-SYS$QIOW( %VAL(1 ) , %VAL ( XTCHAN ) , %VAL( %LOC( IO$READVBLK) ) , 
1IOSB , , , 

1RBUF ( 1 ) , % VAL ( NB YTES ) , , , , ) 

DO  I -1, NWORDS 

C  IF(IAND(BUF(I) ,'377'0) .NE. IAND( RBUF( I ) , ' 377 ' 0 ) )THEN 

IF( IAND( RBUF( I ) , ' 377 '0 ) .NE. 0 ) THEN 
WRITE ( 6,11)1, IAND( RBUF( I ) , ' 377 '0) 

11  FORMAT( ' **  MEMORY  AT', 06, 

1'  -',06) 

C  END IF 

END  IF 
END  DO 

100  continue 

END 


i 
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« 
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E-l/ (E-2  Blank) 


APPENDIX  F 


APPENDIX  F 


CMEMTEST . FOR  • 

I 


EXTERNAL  IOSWRITEVBLK, IO$READVBLK 

INTEGER* 2  RBUP( 8192 ) ,BUF( 8192 ) , IOSB( 4 )  ! 

INTEGER  SYS$ASSIGN , XTCHAN , SYSSQIOW , SYS$GETMSG  i 

INTEGER* 2  ERROR, ITIMES ,NWORDS  ! 

CHARACTER*  8  0  MSGBUF 

DATA  ITIMES/0/ , ERROR/ 0 . / 

ISTATUS-SYS$ASSIGN( 'XTAO' , XTCHAN,,)  ] 

IP( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept* , nwords 
nbytes-2*nwords 
do  100  itest-1,5 

DO  J-l, nwords 


if ( itest.eq. 1)BUF(J)-J 
if ( itest.eq. 2) buf( j )-0 
if(itest.eq.3)buf( j)-'377'o 
if ( itest.eq. 4 )buf ( j )-' 125'o 
if ( itest.eq. 5 )buf ( j )-'052'o 
END  DO 


ISTATUS-SYS$QIOW( %VAL ( 1 ) , %VAL ( XTCHAN ) , %VAL ( %LOC ( IO$WRITEVBLK ) ) , IOSB 
1BUF ( 1 ) , %VAL ( NBYTES ),,,,) 

IF( .NOT. I STATUS. OR. .NOT. IOSB(l ) )THEN 
I STATUS— SYSSGETMSG  ( %VAL( I STATUS ) ,  MSGLEN,  MSGBUF, , ) 

TYPE  *,'  I STATUS-' , I STATUS , '  IOSB{ 1 )-' , IOSB( 1 ) 

TYPE  *,'  ISTATUS— ' , I STATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

I F ( . NOT . I STATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  WRITE  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

I STATUS— SYS$GETMSG  ( %VAL(IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'I/0  STATUS:', MSGBUF 

IF ( .NOT. I STATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT. IOSB ( 1 ) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

ENDIF 


ISTATUS— SYS$QIOW( %VAL{ 1) , %VAL( XTCHAN) , %VAL ( %LOC ( IO$READVBLK ) ) , IOSB  , 
1RBUF(1) ,%VAL( NBYTES) , , , , ) 

IF( .NOT. I STATUS. OR. .NOT. IOSB( 1 ) )THEN 
I STATUS -SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS-' .ISTATUS,'  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *,' ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  *,'QIO  READ  PARAMETER  STATUS :' .MSGBUF 
MSGBUF-'  ' 


ununununux 


CMENTEST . FOR 


ISTATUS-SYS$GETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF , , ) 

XF( .NOT. I STATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'I/0  STATUS:', MSGBUF 

IF(  .NOT.! STATUS) TYPE*,  'PARAMETER  ERROR  IN  XT  OUTPUT' 

XF( .NOT.XOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

DO  1-1 , NWORDS 

IF( XAND( BUF(  I ) , ' 377 '0) . NE . IAND ( RBUF ( I ) , ' 377'0) ) THEN 
ERROR-ERROR+1 • 

C  WRITE ( 6,11)1, IAND(BUF( I ) , ' 377 ' 0) ,  IAND ( RBUF ( I ) , ' 377 '0) 

11  F0RMAT( ' **  MEMORY  R/W  ERROR  AT  ',14,'  INPUT-' , IX, 06, 

1'  OUTPUT-', 06) 

LOW- IAND (I,' 177 '0) 

ICHIP— ISHFT( IAND ( I , ' 1600'0 ) ,-7 )+l 
IBQARD— ISHFT( IAND( I , ' 16000 ' 0 ) , -10 ) +1 
IF( ICHIP. NE.IOLDCHIP) 

1  TYPE  *, 'BOARD, CHIP, -',IBOARD, ICHIP 
I OLDBQARD- I BOARD 
IOLDCHIP-ICHIP 
END  IF 
END  DO 

100  continue 

ITIMES-ITIMES+1 

type  *, 'memory  tested  with  the  above' , ERROR, 

1'  errors. ' ,ITIMES, 

1'  ON', NWORDS,  '  LOCATIONS' 

GO  TO  1 
END 
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nnnnnnnnnonno 


APPENDIX  G 


CREADI 


EXTERNAL  IO$WRITEVBLK, IO$READVBLK 

INTEGER* 2  RBUF( 8192 ) ,BUF ( 8192 ) , IOSB( 4 ) , IMAGE ( 128 , 64 ) 

INTEGER* 2  IXBW,IYBW 

INTEGER  SYSSASSIGN , XT CHAN , SYS$QIOW , SYS$GETMSG 
CHARACTER* 80  MSG8UF 

EQUIVALENCE  (BUF, IMAGE) 

COMMON/BALLO/IXBW, IYBH 
COMMON/CHAN/I TCHAN , IGCHAN 
DATA  ITIMES/0/ 

DATA  IXBW/0/, IYBW/400/ 

ISTATUS-SYS$ASSIGN( 'XTAO' , XTCHAN , , ) 

IF ( . NOT . I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
ISTATUS-SYS$ASSIGN< ' GRAO ' , IGCHAN, , ) 

IF(  .NOT. ISTATUS) TYPE  *, 'ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  1-1,64 
DO  J-1,128 

IMAGE ( J , I )— IAND( I* J , ' 377 '0) 

END  DO 
END  DO 

DO  J-1,128 
IMAGE ( J , 1 )-' 377 '0 
IMAGE ( J , 64 )-' 377 '0 
ENDDO 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

ISTATUS— SYS$QI0W(  %VAL< 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IO$READVBLK) ) , IOSB, 
1BUF( 1 ) , %VAL( 16384 ),,,,) 

IF( .NOT. ISTATUS. OR.. NOT. I0SB(1) )THEN 

ISTATUS— SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF, , ) 

TYPE  *,'  ISTATUS- ' , ISTATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS :', MSGBUF 
MSGBUF- '  ' 

ISTATUS-SYSSGETMSG  (%VAL< IOSB( 1) ) ,  MSGLEN,  MSGBUF, , ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  * , ' I/O  STATUS : ' .MSGBUF 

IF ( .NOT. I STATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

I F ( . NOT . IOSB ( 1 ) ) TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 


m 
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CREADI 


END  IP 

C  WRITE (6, 111) IMAGE 

111  rORMAT(lX,10(lX,O6) ) 

DO  1-1,64 
DO  J-1,127 

IMAGE ( J , I )— IAND( IMAGE ( J , I ) , ' 377 '0) 

ENDDO 

IMAGED  128, 1)-' 34015 '0 
ENDDO 

CALL  FIX (IMAGE) 

END 

SUBROUTINE  PIX(IBUFA) 

IMPLICIT  INTEGER* 2  (A-Z) 

EXTERNAL  IO$WRITEVBLK 

INTEGER  SYS$QI0W , ITCHAN , IGCHAN , J , IO$WRITEVBLK 
INTEGER* 2  OUT( 12 ) , IBUPA( 1 ) 

COMMON/CHAN/ITCHAN , IGCHAN 
COMMON/BALLO/IXBW, IYBW 

DATA  OUT/' 17777'0, * 120000'0, '107777 '0, '24055 '0,' 26002*0, '44000 'O 
1'50002'0,'54000'0,'64000'0,' 74776 '0,0,0/ 

0UT( 11 )— IXBW.OR. ' 44000 ' 0 
OUT( 12 1-IYBW.OR. '64000*0 

J— SYS$QIOW( %VAL( 1 ) , %VAL( IGCHAN) , %VAL( %L0Ct I0$WRITEVBLK) ) , , , , 
lOUT( 1 ) , %VAL( 24 ) , , , , ) 

J-SYS$QIOW( %VAL( 1 ) , %VAL( IGCHAN) , %VAL( %L0C( IOSWRITEVBLK) ) , , , , 
1IBUPA( 1 ) , %VAL( 16384 ),,,,) 

RETURN 

END 
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THIS  ROUTINE  ZEROS  OUT  THE  LAST  128-SWITCH  COLUMNS 
AND  STORES  THE  IMAGE  BACK  IN  REFERENCE  MEMORY 

EXTERNAL  IO$WRITEVBLK, IO$READVBLK 

INTEGER *2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB( 4 ) , IMAGE ( 128, 64 ) 

INTEGER* 2  IXBW,IYBW 

INTEGER  SYS$ASSIGN , XTCHAN , S YSSQIOW , SYS$GETMSG 
CHARACTER* 80  MSGBUF 

EQUIVALENCE  (BUF, IMAGE) 

COMMON/HALLO/IXBW, IYBW 
COMMON/CHAN/I TCHAN , IGCHAN 
DATA  ITIMES/0/ 

DATA  IXBW/Q/, IYBW/400/ 

ISTATUS-SYS$ASSIGN( 'XTAO ' , XTCHAN, , ) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
ISTATUS-SYS$ASSIGN( ' GRAO ' , IGCHAN, , ) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCC 
DO  1-1,64 
DO  J-1,128 

IMAGE ( J , I )— IAND( I* J , ' 377 ' 0 ) 

END  DO 
END  DO 

DO  J-1,128 
IMAGE ( J,1 )-' 377 'O 
IMAGE ( J , 64 )-' 377 '0 
ENDDO 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %L0C( IOSREADVBLK) ) ,IOSB, 
1BUF( 1 ) , %VAL( 16384 ),,,,) 

IF( .NOT. I STATUS. OR. .NOT. I0SB( 1 ) )THEN 
ISTATUS-SYSSGETMSG  (%VAL(ISTATUS) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'  I STATUS- ' , I STATUS , '  I0SB( 1 )-' , I0SB( 1 ) 

TYPE*,'  I STATUS-' , I STATUS , '  I0SB(1 )-' , I0SB( 1) 

IF( . NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYS$GETMSG  ( %VAL ( IOSB ( 1 ) ) ,  MSGLEN ,  MSGBUF , , ) 
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XF( .NOT. I STATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF(  .NOT. I STATUS ) TYPE* , 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

ENDXF 
DO  1-1,64 
00  J-63,127 
IMAGE(J,I)-0 
END  DO 
ENDDO 

XSTATUS— SYS$QXOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IO$WRITEVBLK) ) ,IOSB, ,  , 
1BUF( 1 ) , %VAL( 16384 ),,,,) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  ON  WRITE  BACK' 

XSTATUS— SYS$QIOW( %VAL( 1 ) , *VAL( XTCHAN) , %VAL( %LOC( XO$READVBLK ) ) , IOSB , , , 
1BUF(1) ,%VAL( 16384) 

IF ( .NOT. XSTATUS) TYPE  *, 'ERROR  ON  SECOND  READ' 

C  WRITE (6, 111) IMAGE 

111  FORMAT(lX,10(lX,O6) ) 

DO  1-1,64 
DO  J-1,127 

IMAGE ( J , I )-IAND( IMAGE ( J ,  I ) , ' 377 '0) 

ENDDO 

IMAGE ( 128,1)-' 34015 '0 
ENDDO 

CALL  PIX( IMAGE) 

END 

SUBROUTINE  PIX(IBUFA) 

IMPLICIT  INTEGER* 2  (A-Z) 

EXTERNAL  IO$WRITEVBLK 

INTEGER  SYS$QIOW , ITCRAN , IGCBAN , J , IO$WRITEVBLK 
INTEGER *2  OUT( 12 ) ,IBUFA( 1) 

COMMON/CHAN/I TCHAN , IGCBAN 
COMMON/BALLO/IXBW, IYBW 

DATA  OUT/' 17777 'O, '120000'0, '107777'O, '240S5'O, '26002'0, '44000'0, 

1' 50002 '0, ' 54000 '0, ' 64000 '0, '74776 '0,0,0/ 

OUT( 11 )— IXBW.OR. '44000'0 
OUT( 12)— IYBW. OR. '64000'0 

J-SYS$QIOW( %VAL( 1 ) , %VAL( IGCBAN) , %VAL( %LOC( IO$WRITEVBLK) ) , , , , 

10UT( 1 ) , %VAL( 24 ) , , , , ) 

J— SYS$QIOW( %VAL( 1 ) , %VAL( IGCBAN) , %VAL( %LOC( IO$WRITEVBLK) ) , , , , 

1XBUFA( 1 ) , IVAL( 16384 ),,,,) 

RETURN 

END 
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C****************************************************************************** 

* 


c 

C  THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 

C  ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 

C  A  NEGATIVE  NUMBER. 

C 


*********************************** 


* 


EXTERNAL  IOSWRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB( 4 ) 

INTEGER  SYS  $ AS  S I GN , XTCHAN , SYSSQIOW, SYSSGETMSG 
BYTE  DAC( 64 ) 

CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( 'XTAO' , XTCHAN, , ) 

IF(  .NOT. ISTATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
NWORDS-8192  !  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2 *nwocds 

N-l 

C155  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

C  READ (5,33) DAC ( N ) 

33  FORMAT( 12 ) 

DAC(N)-31 

C  IF(DAC(N) .GT.0)THEN 

C  N-N+l 

C  GO  TO  155 

C  END IF 

C  N-N-l 

DO  J-l,nwords 
BUF( J)-'0'O 
END  DO 

1-1 

C  DO  I-1,N 

TYPE  * , 'DAC  NUMBER-' ,DAC( I) 

DO  K-l+( (DAC(I)-1)*128) ,128+( (DAC( I )-l ) *128 ) 

BUF(K)-'377'0 

ENDDO 

C  ENDDO 

DO  !C«l+( (DAC(I)-l)*128),{(128+( ( DAC( I )-l ) *128 ) )/2)-l 

BUF( K)-0 

ENDDO 

DO  K-( (128+( ( DAC( I )-l ) *128 ) )/2 )— 1 , 128+( ( DAC( I )-l ) *128 ) 

BUF ( X ) — 0 
ENDDO 
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BUF( 4000-128 }-' 377 '0 

ISTATUS-SYS$QIOW( %VAL( 1 ) , % VAL ( XTCHAN ) , %VAL( %LOC( XO$WRXTEVBLK) ) ,IOSB, , , 

1BU7 ( 1 ) , % VAL ( NBYTES ),,,,) 

ir( . NOT . I STATUS . OR . .NOT. IOSB( 1 ) )THEN 

ISTATUS-SYSSGETMSG  ( %VAL{ I STATUS ) ,  HSGLEN ,  MSGBUF, , ) 

TYPE  *,'  I STATUS- ' , I STATUS , '  IOSB(l )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS- ' , I STATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

XF( . NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF, , ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  *,'I/0  STATUS: ' , MSGBUF 

IF(  . NOT. ISTATUS )TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT. IOSB( 1 ) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

1111  ISTATUS— SYS$QIOW( %VAL( 1 ) , tVAL(XTCHAN) , %VAL( %LOC( IO$READVBLK) ) , 

1IOSB , , , 

1RBUF ( 1 ) , %VAL( NBYTES ),,,,) 

END 
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C*** A************************************* **************************  *********** 


C 

C  THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 

C  ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 

C  A  NEGATIVE  NUMBER. 

C 

C****************************************************************************** 

? 

EXTERNAL  IO$WRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF(8192) , BUF ( 8192 ) , IOSB( 4 ) 

INTEGER  SYS  $ AS  SIGN, XTCHAN , S YS  SQ I OW , S YS  $  GETMSG 
BYTE  DAC( 64 ) 

CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN('XTAO', XTCHAN,,) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

NWORDS-8192  t  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

C1S5  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

C  READ (5,33) DAC ( N ) 

33  FORMAT (12) 

DAC(N)-31 

C  IF ( DAC ( N ) . GT . 0 ) THEN 

C  N-N+l 

C  GO  TO  155 

C  END IF 

C  N-N-l 

DO  J-l,nwords 
BUF ( J )  — '  0 ' 0 
ENDDO 

1-1 

C  DO  1*1 , N 

TYPE  *, 'DAC  NUMBER-' ,DAC( I ) 

DO  K-l+( ( DAC ( I ) — 1 ) *128 ) , 128+ ( ( DAC( I )-l ) *128 ) 

BUF ( K ) - ' 1 0  0 ' O 
ENDDO 

C  ENDDO 

DO  K— l+{ (DAC(I)-1)*128),( (128+( ( DAC ( I )-l ) *128 ) )/2)-l 

BUF( K)-0 

ENDDO 

DO  K-(  ( 128+(  (DAC(  I  )-l ) *128 ) )/2 )-l , 128-M  ( DAC(  I  )-l )  *128 ) 

BUF ( K ) -0 
ENDDO 


1 
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1111 


FOR 


DO  JJ-1,2 

BUF(4000-128-2+JJ)-'377'O 
BUF( 4000-256-2+JJ)-' 377'0 
BOF ( 4000-384-2+JJ ) -' 377 ' 0 
BUF( 4000-512-2+JJ ) - ' 377 ' 0 
END  DO 

ISTATUS-SYS$QI0W(%VAL(1) , %VAL ( XTCHAN ) , %VAL( %LOC( IO$WRITEVBLK) ) ,IOSB,  ,  , 
1BUF ( 1 ) , %  VAL ( NB YTES ),,,,) 

IF( .NOT. I STATUS. OR. .NOT. IOSB( 1 )) THEN 
ISTATUS-SYS$GETMSG  ( %VAL( I STATUS ) ,  MSGLEN,  MSGBUF , , ) 

TYPE  *,'  ISTATUS-' , ISTATUS , '  I0SB(1 )-' , IOSB( 1 ) 

TYPE*.'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYS$GETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF( .NOT. ISTATUS)  TYPE  *,' ERROR  IN  CALL  TO  $GETMSG' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF ( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( . NOT.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IO$READVBLK ) ) , 

1IOSB, , , 

1RBUF ( 1 ) , %VAL ( NBYTES ),,,,) 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
This  routine  reads  in  the  selected  reference  image  from  the 
correlator  memory  and  generates  the  gray  scale  histogram 
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWRITEVBLK, IO$READVBLK 

INCLUDE  ' DXSK$USERDXSK : [ SUBIMAGE ] IMGTBL . CMN ' 

INCLUDE  ' DISKSUSERDISK : [ SUBIMAGE ] IOTBL . CMN ' 

INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB( 4 ) , IMAGE( 128 , 64 ) 

INTEGER* 2  IXBW, IYBW 

INTEGER  S  YS  $  AS  S I GN , XTCHAN , S YS  $  Q I OW , S YS  $  GETMSG 
integer*2  tb(65,64) 
integer  hist(256) 

CHARACTER* 80  MSGBUF 

EQUIVALENCE  (BUP, IMAGE) 

COMMON/BALLO/IXBW, IYBW 
COMMON/CHAN/I TCHAN 
DATA  ITIMES/0/ 

DATA  IXBW/0/, IYBW/256/ 
data  ncol,nrow/64,64/ 

ISTATUS-SYS$ASSIGN( ' XTAO ' , XTCHAN , , ) 

IF( .NOT. I STATUS) TYPE  *,' ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
ISTATUS-SYS$ASSIGN( ' GRAO ' , GRCHAN , , ) 

I F  (  . NOT . I STATUS ) TYPE  *, 'ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DO  1-1,64 

C  DO  J-1,128 

C  IMAGE(J,I)-IAND(I*J,'377'0) 

C  ENDDO 

C  ENDDO 

C  DO  J-1,128 

C  IMAGE ( J , 1 )-' 377 '0 

C  IMAGE ( J ,64)-'377'0 

C  ENDDO 

C  do  i«l,64 

C  do  j-1,64 

C  image ( j , i )-iand( 4*( j-1) , ' 370'o) 

C  enddo 

C  enddo 

C 
C 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

ISTATUS-SYS$QIOW( %VAL( 1 ) , IVAL( XTCHAN) , %VAL( %L0C( IO$READVBLK) ) ,IOSB, , 
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1BUF ( 1 ) , %VAL( 16384 ),,,,) 

IF( . NOT. I STATUS. OR. .NOT. IOSB( 1 ) )THEN 
. ISTATUS-SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN ,  MSGBUF, , ) 

TYPE  *,'  ISTATUS-' , I STATUS , '  IOSB( 1 )-' , 10SB( 1 ) 

TYPE*,'  ISTATUS-' ,1STATUS,'  IOSB( 1 , IOSB( 1 ) 

IF( .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'I/0  STATUS: ' , MSGBUF 

IF( .NOT. ISTATUS )TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT. IOSB( 1 ) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

C  WRITE (6, 111) IMAGE 

111  FORMAT( IX, 10 ( IX, 06 ) ) 

cccccccccccc 

c  put  out  the  histogram  to  the  grinnell 

c 

DO  1-1,64 
DO  J-1,127 

IMAGE ( J , I ) -IAND( IMAGE ( J , I ) , ' 377 '0) 

ENDDO 
END  DO 

do  i-1,64 

do  j-1,64 

tb ( j , i ) -image ( j  ,  i ) 

enddo 

enddo 

CALL  GGHIST(tb) 

DO  1-1,64 

IMAGE( 128 , I )-' 34015'0 
ENDDO 

CALL  PIX( IMAGE) 

END 

SUBROUTINE  PIX(IBUFA) 

IMPLICIT  INTEGER* 2  (A-Z) 

EXTERNAL  IOSWRITEVBLK 

INCLUDE  'DISKSUSERDISK: ( SUBIMAGE ] IOTBL . CMN' 

INTEGER  SYS$QIOW, ITCHAN, J, IOSWRITEVBLK 
INTEGER* 2  OUT( 12 ) , IBUFA( 1 ) 

COMMON/CHAN/I TCHAN 
COMMON/BALLO/IXBW , IYBW 

DATA  OUT/' 17777 '0, '120000 '0, '107777 '0, '24055 '0, '26002 '0, '44000 '0, 
1 '50002'0,' 54000 'O,' 64000 '0, '74776 '0,0,0/ 

OUT( 11 )-IXBW.OR.' 44000 'O 
QUT(12)-IYBW.OR.'64000'0 

J— SYS$QIOW( %VAL ( 1 ) , %VAL ( GRCHAN ) , %VAL ( %LOC ( IOSWRITEVBLK )),,,, 
10UT(1) ,%VAL( 24 ),,,,) 

J-SYS$QIOW( %VAL( 1 ) , %VAL( GRCHAN) , %VAL( %L0C( IOSWRITEVBLK) ) , , , , 
1IBUFA( 1 ) , %VAL( 16384 ),,,,) 

RETURN 

END 

SUBROUTINE  GGHIST( IMAGE) 

Q  **#***#*###***#*****#************#*ihhHhk***#*##**thh»*#*****#*# 

c 
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C  FUNCTION: 

C 

C  THIS  ROUTINE  PERFORMS  A  HISTOGRAM  ON  THE  IMAGE 

C 

C  ************************************************************** 

c 

C  ARGUMENTS: 

C 

C 

C  ************************************************************** 

c 

C  MODULE  NOTES : 

C 

C 

C  ************************************************************** 

c 

c 

C  MODULE  CREATION  DATE: 

C 

C  DEC.  198S 

C 

C  *************************************************************** 

c 

C  MODULE  MODIFICATION  HISTORY: 

C 

C 

q  ***********************  EOH  *********************************** 

c 

c 

EXTERNAL  IOSWRITEVBLK 

INCLUDE  ' DISK$USERDISK : ( SUBIMAGE ] IMGTBL . CMN ' 

INCLUDE  'DISKSUSERDISK: ( SUBIMAGE ]IOTBL. CMN' 

COMMON/IMGSOURCE/IMGSOURCE  (IMAGE  SOURCE  STRING  COMMON  TO  SUBCON 

SUBINIT 

CHARACTER* S  IMGSOURCE 
INTEGER* 4  OPRINP 

INTEGER* 4  CHECKIMG  (DUPLICATE  IMAGE  CHECK  FUNCTION 

LOGICAL*l  DISKINPUT  (DISK/TAPE  INPUT  FLAG  .TRUE. -DISK 

.FALSE. -TAPE 

DATA  DISKINPUT/. TRUE./  (ASSUME  DISK  INPUT 
CHARACTER* 4  CHARIN  10PERATER  RESPONSE 

INTEGER* 2  IACODE  (VARIABLE  TO  CONTAIN  OPERATOR  FUN  REQ 

INTEGER* 4  DSPUPD 

LOGICAL*!  IIFLG  (REWRITE  HEADER2  LOGICAL  FLAG 

LOGICAL*l  TAPEDUP,OLDIMG/. FALSE./ 

DIMENSION  LISTFSIZE( 3 ) , LISTSPEED( 3 ) , LISTFPOS ( 3 ) 

DIMENSION  LIST( 8 ) , ILIST( 3 ) , LISTMODE( 2 ) ,LISTSPDT(2) 

-  DIMENSION  MLIST( 5 ) 

INTEGER* 2  ERASEQl 15) , IMAGE (NCOL+l.NROW) ,OUT(780) 

INTEGER  HIST( 256 ) 

DATA  ERASEQ/' 100000 '0, '17777 '0, '24240'O, '121040'0, 

1'140001'0, '121000 '0, 'llOOOO'O, '107777 '0,' 121000 '0, 

2 ' 64000 'O, '70377 'O, '44000 'O.' 52377'0, '24040 'O, '2600Q'O/ 

I— LIB$ERASEPAGE (1,1)  (ERASE  SCREEN 

C  IER  -  IFENCEY  +  IFENCEYSIZE  -  1  (COMPUTE  ENDING  ROW  FOR  SUB  IMAGE 

C  I EC  -  IFENCEX  +  IFENCEXSIZE  -  1  (COMPUTE  ENDING  COL  FOR  SUBIMAGE 

IER-64 
I EC-6 4 


K-3 


CALL  MESSAGE ( 'ENTER  HISTOGRAM  PLOT  QUADRANT') 

CALL  ACCEPT (IACODE)  1GET  THE  OPERATORS  REQ  KEY 

IP(  XACODE.EQ. '0031'X)THEN 

ERASEQ(10)-'64400'0  1LLA 

ERASEQ(12)-'44377'0  ILEA 

END  IF 

IF(  IACODE . EQ .' 0032 ' X) THEN 
ERASEQ ( 10 )>' 64400 '0 
ERASEQ( 12)-' 44000  'O 
END  IF 

IF( IACODE. EQ.'0033'X)THEN 
ERASEQ( 10)-' 64000 'O 
ERASEQ( 12 )-' 44000 'O 

END  IP 

IF(  IACODE. EQ.'0034'X)THEN 
ERAS  EQ  ( 10 )  —  ' 64000 '0 
ERASEQ{12)-'44400'0 
END  IF 

I-SYS$QIOW( %VAL( 1 ) , % VAL ( GRCHAN ) f  %VAL( %LOC( IO$WRITEVBLK) ) , , , , 
1ERASEQ,%VAL( 30 ),,,,) 

IFENCEY-1 
IFENCEX-1 
DO  ICOL-1,256 

HIST(ICOL)-0 

END  DO 

DO  IROW-IFENCEY.IER 
DO  ICOL-IFENCEX,IEC 

PRINT  *, ' IMAGE ( I COL, IRON)-' , IMAGE ( I COL, IRON) , ICOL, IROW 
IF( IMAGE ( ICOL, IROW)+l  .GT.  256  .OR.  IMAGE( ICOL, IROM)+l  .LT.l) 

1TYPE  * , ' DATA  ERROR  IN  INPUT  IMAGE  1U 1 ! 1 1 l II l ' , IMAGE( ICOL, IROW)+l 
HIST(  IMAGE ( ICOL, IROW) +1 )-HIST{  IMAGE ( ICOL,  IROW)+l  )+l 

END  DO 
ENDDO 

LMAX— 1000000 
LMIN-1000000 

SKIP  ZERO  WHEN  GETTING  SCALE  FOR  HISTOGRAM  (START  AT  2) 

MAXLOCATION-O 

MINLOCATION-O 

DO  ILOOK-2,256 

IF(HIST( ILOOK) .GT.LMAX)  THEN 
LMAX-HIST( ILOOK) 

MAXLOCATION-ILOOK 
END  IF 

IF(HIST( ILOOK) .LT.LMIN)  THEN 
LMIN-HIST( ILOOK) 

MINLOCATI ON- I LOOK 
END  IF 

ENDDO 

IF ( LMAX . EQ . LMIN ) THEN 

TYPE  * ,  'MAX  IS  THE  SAME  AS  MIN . 1 1 1 1 1  U-' , LMAX 

RETURN 

ELSE 

TYPE* , ' MAX , MIN- ' , LMAX , LMIN 
TYPE  * , ' MAXLOCATI ON- ' , MAXLOCATION 
TYPE  *, ' MINLOCATION- ' ,MINLOCATION 
END  IF 

HIST< 1 )-( HIST( 1 )-LMIN)/( LMAX- LMIN) 

IF(HIST(1) . GT.255)HIST( l)-255  ITHIS  TAKES  CARE  OF  ZERO 


IMAGEH. FOR 


00  I LOOK-2, 256 

BIST( ILOOK)-2S5 . * ( FLOAT ( HIST ( I LOOK ) )- FLOAT ( LMIN) )/ 

1 ( FLOAT (LMAX)- FLOAT (LMIN) ) 

END  DO 

C  TYPE  * ,HIST 

444  I OUT-2 

OUT(l)-' 50000 'O 

DO  I LOAD-1, 256 

OUT( IOUT)»ERASEQ( 12 )+( ILOAD) 

OUT( IOUT+1 ) -ERASEQ ( 10 ) 

OUT( IOUT+2 ) -'720 00' 0+HIST( ILOAD ) 

lOUT-IOUT+3 

ENDDO 

IOUT— IOUT-1 

I-SYS$QIOW( %VAL( 1 ) , %VAL(GRCHAN) , %VAL( %LOC( IO$WRITEVBLK) ) , , , , 
IOUT , % VAL ( IOUT*  2 ) , , , , ) 

RETURN 

END 


t 


f 


K-5/(K-6  Blank) 


Wl’ 
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APPENDIX  L 
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ccccccccccccccccccccccccccccccccccccceccccccccccccccccccccccccccccc 
c  This  routine  reads  in  the  selected  reference  image  from  the 

c  correlator  memory  and  generates  the  gray  scale  histogram 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
EXTERNAL  IO$WRITEVBLK , IO$READVBLK 
INCLUDE  ' DISK$USERDXSK : { SUBIMAGE ] IMGTBL . CMN ' 

INCLUDE  'DISKSUSERDISK: { SUBIMAGE ] IQTBL . CMN' 

INTEGER* 2  RBUF( 8192 ) , BUF( 8192 ) , XOSB( 4 ) , IMAGE ( 128 ,  64 ) 

INTEGER* 2  IXBW,IYBW 

INTEGER  SYS$ASSIGN,XTCHAN, SYS$QIOW, SYS$GETMSG 
integer  hist(256) 

CHARACTER* 8 0  MSGBUF 

EQUIVALENCE  (BUF, IMAGE) 

COMMON/BALLO/I XBW , XYBW 
COMMON/CHAN/ITCHAN 
DATA  ITIMES/0/ 

DATA  IXBW/0/, IYBW/256/ 
data  ncol,nrow/64,64/ 

ISTATUS-SYS$ASSIGN( 'XTAO' , XTCHAN , , ) 

IF( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

I STATUS “SYS $ ASS IGN ( ' GRAO ' , GRCHAN , , ) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  GRXNNELL  CHANNEL  ASSIGN' 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCC 
C  DO  1-1,64 

C  DO  <7-1,128 

C  IMAGE ( J, I )-IAND( I*J, ' 377 '0) 

C  ENDDO 

C  ENDDO 

C 

C  DO  J-1,128 

C  IMAGE ( J , 1 )-' 377 '0 

C  IMAGE(J,64)-'377'0 

C  ENDDO 

do  i-1,64 
do  j— 1,64 

image ( j , i ) -IAND( I * J , ' 377 ' 0 ) 
enddo 
enddo 
C 
C 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCTEST  IMAGECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
C  ISTATUS-SYS$QIOW( *VAL( 1 ) , %VAL ( XTCHAN ) , »VAL( %L0C{ IOSREADVBLK) ) , I0SB,-, 


oonnnonon  n  o  n  i-ooooonooooooooono 
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1BUF(1),%VAL( 16384 ),,,,) 

XF( . NOT. I STATUS. OR. .NOT.IOSB(l) )  THEN 
ISTATUS-SYS$GETMSG  (%VAL( I STATUS) ,  MSGLEN,  MSGBUF, , ) 

TYPE  *,'  I STATUS-' , I STATUS, '  IOSB(l)-' ,I0SB(1) 

TYPE  *,'  I STATUS- ' , X STATUS , '  IOSB(l )-' , IOSB( 1 ) 

IF( .NOT.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *, ' QIO  PARAMETER  STATUS : ' , MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYS$GETMSG  ( %VAL{ IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

I F ( . NOT . I STATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  *,'I/0  STATUS: ' , MSGBUF 

XF( .NOT. ISTATUS)TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.XOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

WRITE (6, 111) IMAGE 
11  FORMAT( IX, 10( 1X,06 ) ) 
ccccccccccc 

put  out  the  histogram  to  the  grinnell 

CALL  GGHIST( IMAGE) 

DO  1-1,64 
DO  J-1,127 

IMAGE (J , I )— IAND( IMAGE ( J , I ) , ' 377 '0) 

END  DO 

IMAGE ( 128, X)-' 34015 'O 
ENDDO 

CALL  PIX( IMAGE) 

END 

SUBROUTINE  PIX(IBUFA) 

IMPLICIT  INTEGER*2  (A-Z) 

EXTERNAL  IOSWRITEVBLK 

INCLUDE  'DISKSUSERDISK: [ SUBIMAGEjIOTBL.CMN' 

INTEGER  SYSSQIOW , ITCHAN , J , IOSWRITEVBLK 
INTEGER* 2  OUT( 12 ) , IBUFA( 1 ) 

COMMON/CHAN/lTCHAN 
COMMON/BALLO/IXBW , IYBW 

DATA  OUT/' 17777 'O, '120000'0,' 107777 '0, '24055'O,' 26002 '0, '44000'0, 
1 ' 50002 '0, '54000'0, '64000 '0, '74776 '0,0,0/ 

OUT( 11 )— IXBW.OR. ' 44000 'O 
OUT( 12 ) -IYBW: OR. ' 64000 'O 

J— SYS$QIOW( %VAL( 1 ) , %VAL ( GRCHAN ) , IVAL ( %LOC ( IOSWRITEVBLK )),,,, 

10UT( 1 ) , %VAL( 24 ) , , , , ) 

J-SYSSQIOW( %VAL( 1 ) ,%VAL( GRCHAN) , %VAL( %L0C( IOSWRITEVBLK) ) , , , , 
HBUFA(l)  ,%VAL(  16384) ,,,, ) 

RETURN 

END 

SUBROUTINE  GGHI ST ( IMAGE) 

ft***********************************************,************* 


FUNCTION: 

THIS  ROUTINE  PERFORMS  A  HISTOGRAM  ON  THE  IMAGE 
************** ****** ****************************************** 
ARGUMENTS : 


IMAGEHDEMO . FOR 


C 

C 

c  ************************************************************** 

c 

C  MODULE  NOTES : 

C 

C 

C  ************************************************************** 

c 

c 

C  MODULE  CREATION  DATE: 

C 

C  DEC.  1985 

C 

C  ft************************************************************** 

C 

C  MODULE  MODIFICATION  HISTORY: 

C 

C  - 

q  ***********************  eoh  *********************************** 

c 

c 

EXTERNAL  IOSWRITEVBLK 

INCLUDE  'OISKSUSERDISK: (SUBIMAGE  I IMGTBL.CMN' 

INCLUDE  'DISKSUSERDISK: [ SUBIMAGE JIOTBL.CMN' 

COMMON/IMGSOURCE/IMGSOURCE  1 IMAGE  SOURCE  STRING  COMMON  TO  SUBCON 

SUBINIT 


{ DUPLICATE 
l DISK/TAPE 


IMAGE 

INPUT 


C 

C 


C 

C 

C 


c 

c 


! ASSUME  DISK  INPUT 

10PERATER  RESPONSE 
{VARIABLE  TO  CONTAIN 


CHARACTER* 5  IMGSOURCE 
INTEGER* 4  OPRINP 
INTEGER*4  CHECKING 
LOG I CAL *1  DISKINPUT 
.FALSE. -TAPE 

DATA  DISKINPUT/. TRUE./ 

CHARACTER* 4  CHARIN 
INTEGER* 2  IACODE 
INTEGER* 4  DSPUPD 
LOG I CAL *1  IIFLG 
LOGICAL* 1  TAPEDUP , OLD I MG/ . FALSE . / 

DIMENSION  LISTFSIZE( 3 )  , LISTSPEED( 3 ) ,LISTFPOS( 3 ) 

DIMENSION  LIST( 8 ) , ILIST( 3 ) , LISTMODE ( 2 ) , LISTSPDT( 2 ) 
DIMENSION  MLIST( 5 ) 

INTEGER* 2  ERASEQ( 15 ) , IMAGE ( NCOL+1 ,NROW) ,OUT(780) 

INTEGER  HIST( 256 ) 

DATA  ERASEQ/' 100000 '0, ' 17777*0, ' 24240 'O, ' 121040 'O, 

1' 140001*0,' 121000 'O,' 110000 'O,' 107777 'O, '121000 'O, 
2'64000'0,'70377'0,'44000'0,'52377'0, '24040 'O, '26000'0/ 


CHECK  FUNCTION 
FLAG  .TRUE. -DISK 


OPERATOR  FUN  REQ 


{REWRITE  HEADER2  LOGICAL  FLAG 


I-LIBSERASEPAGE (1,1) 

IER  -  IFENCEY  +  IFENCEYSIZE  - 
I EC  -  IFENCEX  +  IFENCEXSIZE  - 
IER- 6 4 
IEC-64 

CALL  MESSAGE ( 'ENTER  HISTOGRAM 
CALL  ACCEPT (IACODE) 

IF( IACODE. EQ. '0031'X)THEN 
ERASEQ (10)-'64400'0  { LLA 

ERASEQ ( 12)>'44400'0  ! LEA 

END  IF 

IF( IACODE. EQ . ' 0032' X) THEN 


{ERASE  SCREEN 

1  {COMPUTE  ENDING  ROW  FOR  SUB  IMAGE 
1  { COMPUTE  ENDING  COL  FOR  SUBIMAGE 


PLOT  QUADRANT' ) 

{GET  THE  OPERATORS  REQ  KEY 


L-3 


V  ,♦»  ,V,HVw;A 


nonnnnnnnnn 
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ERAS EQ( 10)-' 64400 '0 
BRASEQ (12)*' 44000 '0 
END  IF 

IF(IACODE.EQ. ' 0033 'X) THEN 
ERASEQ (10)*' 64000 '0 
ERAS EQ( 12 )-' 44000 '0 
END  IF 

IF( IACODE . EQ 0034 ' X) THEN 
ERASEQ( 10)-'64000'0 
ERAS EQ( 12)-' 44400 '0 
END  IF 

I-SYS$QIOW( %VAL( 1 ) , %VAL ( GRCHAN ) , %VAL{ %LOC( IOSWRITEVBLK) ) , 
1ERASEQ, %VAL( 30 ),,,,) 

XFENCEY— 1 
IFENCEX-1 
DO  ICOL-1,256 
HIST( ICOL)-0 
ENDDO 

DO  IRON— IFENCEY , IER 
DO  ICOL-IFENCEX,IEC 
C  PRINT  *, ' IMAGE ( I COL, IRON)-' , IMAGE ( ICOL, IROW) , ICOL, IROW 

HIST( IMAGE ( ICOL , IROW) +1 ) -HIST( IMAGE ( ICOL , IROW) +1 ) +1 
ENDDO 
ENDDO 

LMAX— 1000000 
LMIN-1000000 

C  SKIP  ZERO  WHEN  GETTING  SCALE  FOR  HISTOGRAM  (START  AT  2) 

DO  I LOOK-2, 256 

IF ( HIST ( ILOOK) .GT.LMAX) LMAX-HIST( I LOOK) 

I F ( HI ST ( ILOOK ) .LT.LMIN) LMIN-HI ST ( I LOOK ) 

ENDDO 

IF ( LMAX . EQ . LMIN ) THEN 

TYPE  * ,  'MAX  IS  THE  SAME  AS  MIN . limit  ERROR . ' 

RETURN 

ELSE 

C  TYPE*, 'MAX, MIN- LMAX, LMIN 

END  IF 

HIST( 1 )— (HIST( 1 )-LMIN)/( LMAX-LMIN) 

IF( HIST( 1 ) .GT. 255 ) HIST{ 1 ) -255  ITHIS  TAKES  CARE  OF  ZERO 

DO  I LOOK-2, 256 

HIST( ILOOK) -255 . *( FLOAT ( HIST ( ILOOK) )-FLOAT( LMIN) )/ 

1( FLOAT (LMAX) -FLOAT (LMIN) ) 

ENDDO 

IOUT-2 

OUT( 1)-' 50000 'O 
DO  I LOAD-1, 256 

OUT( IOUT)-ERASEQ( 12 ) +( ILOAD-1 ) 

OUT ( IOUT+1 ) -ERASEQ ( 10 ) 

OUT( IOUT+2 ) - ' 7 2 0 0 0 ' O+HI ST ( I LOAD ) 

IOUT— IOUT+3 
ENDDO 

I OUT- I OUT- 3 

I-SYS$QIOW(%VAL(l) ,  WAL( GRCHAN ) ,  WAL(  UOC(  IOSWRITEVBLK)  ) 
IOUT, %VAL( IOUT* 2 ) , , , , ) 

RETURN 

END 


APPENDIX  M 


APPENDIX  M 


RWCMEMT . FOR 


EXTERNAL  IO$WRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB( 4 ) 

INTEGER  SYSSASS IGN , XTCHAN , SYSSQIOW , SYSSGETMSG 
INTEGER* 2  ERROR, ITIMES ,NWORDS 
CHARACTER *80  MSGBUF 

DATA  ITIMES/0/ , ERROR/O . / 

ISTATUS-SYS$ASSIGN( 'XTAO' , XTCHAN, , ) 

IF( .NOT. ISTATUS) TYPE  *,' ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept* , nwo  r ds 
nbytes-2*nwords 
1  do  100  i test-1, 5 

DO  J»l,nwords 

if ( itest . eq . 1 ) BUF ( J )  -J 

if ( itest.eq.2)buf ( j )-0 

if (itest.eq.3)buf { j )«' 377 'o 

if(itest.eq.4)buf( j )-'125'o 

if(itest.eq.5)buf( j )-'052'o 

ENDDO 

ISTATUS-SYS?QIOW(%VAL(l) , %VAL ( XTCHAN ) , %VAL ( %LOC ( IO$WRITEVBLK ) ) , IOSB ,  ,  , 
1BUF ( 1 ) , %VAL ( NBYTES ),,,,) 

IF( .NOT. I STATUS. OR. .NOT.IOSB(l) ) THEN 
ISTATUS-SYS$GETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE  *,'  ISTATUS-', ISTATUS,'  IOSB( 1)-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  WRITE  PARAMETER  STATUS: ' , MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF ( .NOT. I STATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  *,'1/0  ERROR  IN  XT  OUTPUT' 

END  IF 

100  continue 

ITIMES-ITIMES+1 

type  *, 'memory  tested  with  the  above' , ERROR, 

1'  errors. ', ITIMES, 

1'  ON ' , NWORDS ,  '  LOCATIONS' 

GO  TO  1 
END 


APPENDIX  N 


SELDAT . FOR 


EXTERNAL  IOSWRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF(8192) ,BUF( 8192 ) , IOSB( 4 ) 

INTEGER  SYS$ASSIGN,XTCHAN, SYSSQIOW, SYSSGETMSG 
CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( 'XTAO ' , XTCHAN, , ) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept*, nwords 
nbytes-2*nwords 

TYPE  *, 'ENTER  DATA  PATTERN  TO  BE  USED  (377)’ 

READ( 5,55) IDAT 
FORMAT (03) 

DO  J-l, nwords 
buf( j)-IDAT 
END  DO 

SET  FIRST  AND  LAST  IN  EACH  LINE  TO  ZERO 
DO  J-l, NWORDS, 128 
BUF( J )— 0 
ENDDO 

DO  J-6 4, NWORDS, 128 

BUF ( J ) —0 

ENDDO 

ISTATUS— SYSSQIOW ( %VAL ( 1 ) , %VAL ( XT CHAN ) , 

1%VAL(%L0C( IOSWRITEVBLK) ) ,IOSB, , , 

1BUF( 1 ) , % VAL ( NBYTES ) , , , , ) 

I F ( .NOT. I STATUS .OR. .NOT. IOSB(  1 ) ) THEN 

ISTATUS— SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'  I STATUS- '.ISTATUS,'  I0SB( 1 )-' , IOSB( 1 ) 

TYPE  *,'  ISTATUS-' .ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  WRITE  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF, , ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' .MSGBUF 

IF ( .NOT. I STATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT. 10SB( 1 ) ) TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

ENDIF 

ISTATUS— SYSSQIOW( %VAL ( 1 ) , WAL ( XTCHAN ) , %VAL ( %LOC ( IO$READVBLK ) ) , IOSB ,  ,  , 
1RBUF(1) , %VAL( NBYTES ) , , , , ) 

IF( .NOT. I STATUS. OR. .NOT.IOSB(l) )THEN 
ISTATUS-SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 


BP 


.  SELDAT. FOR 


TYPE  I STATUS-' , I STATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IP( .NOT.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *, 'QIO  READ  PARAMETER  STATUS : ' , MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYS$GETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF, , ) 

IF( .NOT.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  * , *  I/O  STATUS : ' , MSGBUF 

IF( .NOT.ISTATUS )TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( . NOT. IOSB( 1 ) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

ENDIF 

DO  I-l,NWORDS 

IF( IAND( BUF( I ) , ' 377 '0) .NE. IAND( RBUF( I ) , ' 377 '0) )THEN 
WRITE ( 6,11)1, IAND( BUF( I ) , ' 377 '0 ) , IAND( RBUF( I ) , ' 377 '0) 

11  FORMAT( ' **  MEMORY  R/W  ERROR  AT  ',14,'  INPUT-' , IX, 06 , 

1'  OUTPUT-' ,06) 

ENDIF 
END  DO 

ITIMES— ITIMES-fl 

type  *, 'memory  test  complete  with  the  above  errors. ', ITIMES, 
1'  0N',NW0RDS,  '  LOCATIONS' 

GO  TO  1 


fl  O  O  O  fi  o 
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C* ***************************************************************************** 

* 


THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 
ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANX  AS  YOU  WANT  THE  ENTER 
A  NEGATIVE  NUMBER. 

****************************************************************************** 

EXTERNAL  IO$WRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB( 4 ) 

INTEGER  S¥S$ASSIGN, XTCHAN, SYS$QI0W, SYS$GETKSG 
BYTE  DAC( 64 ) 

CHARACTER *80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYSSASSIGN( 'XTAO' , XTCHAN, , ) 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

NWORDS-8192  l  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

155  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

READ( 5,33)DAC(N) 

33  FORMAT( 12 ) 

IF(DAC(N) . GT. 0 )THEN 

N-N+l 

GO  TO  155 

END  IF 

N-N-l 

DO  J-l,nwords 

BUF(J)-'0'O 

ENDDO 

DO  1-1 ,N 

TYPE  * , ' DAC  NUMBER-' ,DAC( I) 

DO  K-l+( ( DAC( I ) — 1 ) *128 ) , 128+ ( ( DAC ( I )-l J*128 ) 
buf (K)-(K-1)*2 

C  BUF(K)-' 377 '0 

ENDDO 

ENDDO 

ISTATUS— SYS$QIOW( %VAL(1) , %VAL ( XTCHAN ) , %VAL( %LOC( IO$WRITEVBLK) ) ,IOSB,  ,  , 
1BUF( 1 ) , % VAL ( NBYTES ),,,,) 

IF( .NOT. ISTATUS. OR. . NOT . IOSB ( 1 ) ) THEN 

ISTATUS— SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , I0SB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  I0SB( 1 )-' , I0SB( 1 ) 


f tjjWi  a*t  ijtjVA  |N>»|  «M  .«i  Jt1  .VtttMinM  KV  >«VM  *  u^U'iJ 
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I F( .NOT 
TYPE  *, 
MSGBUF- 
I STATUS 
IP( .NOT 
TYPE  *, 
IF( .NOT 
IP( .NOT 
END  IF 
I STATUS 
1I0SB , , 
1RBUF(1 
END 


.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 
'QXO  PARAMETER  STATUS :', MSGBUF 


-SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 
’.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 
'I/O  STATUS:', MSGBUF 

’.I STATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 
’.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 


>SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IO$READVBLK ) ) , 


) , %VAL ( NBYTES ) , , , , 
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APPENDIX  P 


SEQUENCE. FOR 


C************************************************************************ ****** 


THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 
ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 
A  NEGATIVE  NUMBER. 

£****************★*********************************************************«*** 

EXTERNAL  IO$WRITEVBLK , IO$READVBLK 
INTEGER* 2  RBUF(8192) , BUP ( 8192 ) , IOSB ( 4 ) 

INTEGER  SYS$ASSIGN,XTCHAN, SYSSQIOW, SYSSGETMSG 
BYTE  DAC (64) 

CHARACTER* 80  MSGBUP 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( * XTAO ' , XTCHAN , , } 

IF( .NOT. ISTATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

NWORDS-8192  !  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

155  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

READ( 5,33 )DAC(N) 

33  F0RMAT(I2) 

IF(DAC(N) . GT . 0 ) THEN 

N-N+l 

GO  TO  155 

END  IF 

N-N-l 

DO  J»l,nwords 

BUF(J)-'0'O 

ENDDO 

TYPE  *, 'ENTER  DATA  FOR  DAC' 

READ( 5,555) IDATA 
555  FORMAT ( 03 ) 

DO  I-1,N 

TYPE  * , ' DAC  NUMBER- ', DAC ( I ) 

DO  K-l+< (DAC(I)-l)*128),128+( (DAC( I )-l ) *128 ) - 

BUF(K) -IDATA 

ENDDO 

ENDDO 

DO  J-l , NWORDS , 128 

BUF ( J ) — 0 

ENDDO 

DO  J-6 4, NWORDS, 12 8 
BUF ( J ) -0 


P-1 


SEQUENCE . FOR 


i 

.  1111 


END  DO 

ISTATUS-SYS$QIOW( WAL(  1 ) , t VAL ( XTCHAN ) , %VAL( %LOC( IO$WRITEVBLK) ) ,IOSB,  ,  , 
1BUF ( 1 ) , % VAL ( NBYTES ),,,,) 

IF( .NOT. I STATUS .OB. .NOT. IOSB( 1 ) )THEN 
ISTATUS-SYSSGETMSG  (% VAL ( I STATUS ) ,  MSGLEN ,  MSGBUF , , ) 

TYPE  ISTATUS-' , I STATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE  *,•  ISTATUS- ' , ISTATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

1F(  . NOT . I STATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'Q10  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYS$GETMSG  ( %VAL( IOSB(  1 ) )  ,  MSGLEN ,  MSGBUF , , ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' /MSGBUF 

IF(  .NOT.  ISTATUS  )TYPE*,  'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF(  . NOT. IOSB( 1 ) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS— SYS$QIOW( %VAL( 1 ) , %VAL ( XTCBAN ) , %VAL( %LOC( IOSREADVBLK ) ) , 

1IOSB , , , 

1RBUF { 1 ) , %VAL ( NBYTES ),,,,) 

END 


APPENDIX  Q 


SHORTLINE. FOR 


£********************************************************************  ****** ★ 
k 

c 

C  THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 

C  ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 

C  A  NEGATIVE  NUMBER. 

C 

C* ************************************ ***************************************** 

» 

EXTERNAL  IO$WRITEVBLK , IO$READVBLK 
INTEGER* 2  RBUF{ 8192) ,BUF{ 8192) , IOSB( 4 ) 

INTEGER  SYS$ASSIGN,XTCHAN, SYSSQIOW , SYS$GETMSG 
BYTE  DAC( 64 ) 

CHARACTER  *80  MSGBUF 
DATA  ITIMES/0/ 

I STATUS-SYS$ASS IGN ( 'XTAO' , XTCHAN , , ) 

IF( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 

NWORDS-8192  1  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

C155  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

C  READ (5,33) DAC ( N ) 

33  FORMAT( 12 ) 

DAC(N)-31 

C  I F ( DAC ( N ) . GT . 0 ) THEN 

C  N-N+l 

C  GO  TO  155 

C  END IF 

C  N-N-l 

DO  J-l,nwords 
BUF ( J )  - '  0 ' 0 
END  DO 

1-1 

C  DO  I-1,N 

TYPE  *,'DAC  NUMBER-' ,DAC{I) 

C  DO  K-l+( ( DAC( I )-l ) *128 ) ,128+( ( DAC( I )-l ) *128 ) 

C  BUF( K ) — ' 100 ' 0 

C  ENDDO 


END  DO 


DO  K-l+( ( DAC( I )-l ) *128 ) , ( ( 128+{ { DAC( I )-l ) *128 ) )/2 )-l 

BUF( K)-0 

ENDDO 

DO  K-( ( 128+( ( DAC( I )-l ) *128 ) )/2 )-l , 128+( ( DAC( I )-l ) *128 ) 

BUF ( K ) — 0 

ENDDO 


s 


tMn>WH5MNl 


SHORTLINE. FOR 


C  00  1-31,8192-95,128 

DO  1-35,40 
8UF(I)-'377'0 
ENDDO 

C  BUF( 4000-128 )«' 377' 0 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL ( XTCHAN ) , 

1%VAL( %LOC( IOSWRITEVBLK) ) ,IOSB, , , 

1BUF ( 1 ) , % VAL ( NBYTES ) , , , , ) 

IF( .NOT. I STATUS. OR. .NOT. IOSB( 1 ) )THEN 

ISTATUS— SYS$GETMSG  ( %VAL( I STATUS ) ,  MSGLEN ,  MSGBUF , , ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  I0SB< 1 )-' , I0SB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *,' ERROR  IN  CALL  TO  5GETMSG' 

TYPE  *, 'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYS5GETMSG  ( %VAL( I0SB( 1 ) ) ,  MSGLEN,  MSGBUF,,; 

IF(  .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'I/0  STATUS: ' , MSGBUF 

IF (  .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  * , ' I/O  ERROR  IN  XT  OUTPUT' 

END  IF 

1111  ISTATUS— SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IO$READVBLK ) ) , 

1IOSB , , , 

1RBUF(1) ,%VAL( NBYTES) , , ,  ,  ) 

END 


•I'||  '  H I  •  •* 


APPENDIX  R 


SSELDAT. FOR 


EXTERNAL  IO$WRITEVBLK , IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF( 8192 ) , IOSB(  4 ) 

INTEGER  S YS  $ ASS IGN , XTCHAN , S YS  $  Q I OW , S YS  $  GETMSG 
CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( ' XTAO '  , XTCHAN ,  ,  ) 

IF( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept* ,nwords 
nbytes-2*nwords 

TYPE  *, 'ENTER  DATA  PATTERN  TO  BE  USED  (377)' 

READ (5,55) IDAT 
FORMAT (03) 

do  J-l,nwords 
buf ( j )«IDAT 
END  DO 

SET  FIRST  AND  LAST  IN  EACH  LINE  TO  ZERO 
ISTATUS-SYS$QIOW{ %VAL ( 1 ) , %VAL ( XTCHAN ) , 

1%VAL( %LOC( IO$WRITEVBLK ) ) , IOSB, , , 

1BUF ( 1 ) , %VAL ( NBYTES ) , ,  ,  ,  ) 

IF( .NOT. I STATUS. OR. .NOT. IOSB ( 1) )THEN 
I STATUSES YSSGETMSG  ( %VAL( I STATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE*,'  ISTATUS—' , I STATUS , '  IOSB(  1 )-' ,  IOSB(  1 ) 

TYPE*,'  ISTATUS-' , ISTATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. I STATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  WRITE  PARAMETER  STATUS :' , MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF ( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

I F ( . NOT . IOSB ( 1 ) ) TYPE  * , ' I/O  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , 1VAL( XTCHAN? , %VAL<  %LOC( IO$READVBLK ) ) , IOSB 
1RBUF ( 1 ) , %VAL ( NBYTES ),,,,) 

IF( . NOT, I STATUS . OR . .NOT. IOSB( 1 ) )THEN 

ISTATUS— SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  I0SB( 1 )-' , IOSB ( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  READ  PARAMETER  STATUS ;', MSGBUF 
MSGBUF-'  ' 

I STATUS- SYSSGETMSG  ( %VAL( IOSB'l ) ) ,  MSGLEN,  MSGBUF,,) 


SSELDAT . FOR 


IF( .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'I/0  STATUS: ' ,MSGBUF 

IF( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

DO  1-1 , NWORDS 

IF( IAND( BUF (I) , '377'0) ,NE. IAND( RBUF( I ) , ' 377 ' 0) (THEN 
WRITE ( 6,11)1, IAND( BUF( I ) , ' 377 ' 0 ) , IAND( RBUF( I ) , ' 377 ' 0 ) 

11  FORMAT ( ' *  *  MEMORY  R/W  ERROR  AT  ',14,'  INPUT-' , IX, 06 , 

1'  OUTPUT- ',06) 

END  IF 
ENDDO 

ITIMES— ITIMES+1 

type  *, 'memory  test  complete  with  the  above  errors ITIMES , 
1'  ON', NWORDS,  '  LOCATIONS' 

GO  TO  1 


APPENDIX  S 


SSELDAT . FOR 


EXTERNAL  IO$WRITEVBLK , IO$READVBLK 
INTEGER *2  RBUF( 8192 ) , BUF ( 8192 ) , IOSB( 4 ) 

INTEGER  SYS$ASSIGN,XTCHAN,SYS$QIOW,SYS$GETMSG 
CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( 'XTAO  * , XTCHAN , , ) 

IF( .NOT. I STATUS) TYPE  *, 'ERROR  IN  AND  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept* ,nwords 
nbytes-2*nwords 

TYPE  *, 'ENTER  DATA  PATTERN  TO  BE  USED  (377)' 

READ( 5,55) IDAT 
FORMAT (03) 

DO  J-l,nwords 
buf( j)-IDAT 
END  DO 

SET  FIRST  AND  LAST  IN  EACH  LINE  TO  ZERO 
ISTATUS-SYS$QIOW(%VAL(l) ,  %VAL (XTCHAN) , 

1%VAL( %LOC( IOSWRITEVBLK) ) , I0SB, , , 

1BUF ( 1 ) , %VAL ( NBYTES ) , ,  ,  ,  ) 

IF( .NOT. I STATUS. OR. .NOT.IOSB(l) ) THEN 
ISTATUS-SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF, , ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'QIO  WRITE  PARAMETER  STATUS ;', MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  { %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  * , ' I/O  ERROR  IN  XT’ OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %L0C( IO$READVBLR) ) ,IOSB, , , 
1RBUF(1) ,%VAL (NBYTES) , , , , ) 

IF( .NOT. I STATUS. OR. .NOT.IOSB(l) ) THEN 
ISTATUS-SYSSGETMSG  ( %VAL( ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'  ISTATUS-' , ISTATUS, '  I0SB( 1 )-' , I0SB( 1 ) 

TYPE*,'  ISTATUS-' , ISTATUS, '  I0SB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *,' ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  READ  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( %VAL( I0SB ( 1 ) ) ,  MSGLEN,  MSGBUF,,) 


SSELDAT, FOR 


1 F ( . NOT . ZSTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG ' 

TYPE  * , ' I/O  STATUS : ' , MSGBUF 

IF( .NOT. ISTATUS)TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

ENDIF 

DO  I-l,NWORDS 

IF{ IAND(BUF( I )  , ' 377 '0) .NE. IAND( RBUF( I ) , ' 377 '0) )THEN 
WRITE ( 6 ,11)1, IAND( BUF( I ) ,  ' 377 '0) , IAND( RBUF( I ) * ' 377 '0) 
11  FORMATS **  MEMORY  R/W  ERROR  AT  ',14,'  INPUT-' , IX, 06 , 

1'  OUTPUT-', 06) 

ENDIF 
END  DO 


ITIMES-ITIMES+1  W 

type  *, 'memory  test  complete  with  the  above  errors. ' ,ITIMES, 

1'  ON ' , NWORDS ,  '  LOCATIONS'  | 

GO  TO  1  d 


APPENDIX  T 


S SEQUENCE. FOR 


normoonn 


APPENDIX  T 


SSEQUENCE • FOR 


C***********lHk***************************************************************** 


THIS  ROUTINE  IS  USED  TO  SELECT  WHICH  LEDS  OR  LINES  IS  TO  BE  TURNED 
ON.  SEVERAL  CAN  BE  SELECTED.  ENTER  AS  MANY  AS  YOU  WANT  THE  ENTER 
A  NEGATIVE  NUMBER. 

THIS  ROUTINE  IS  THE  SAME  AS  SEQUENCE  EXCEPT  THAT  IT  DOESN'T  ZERO  OUT 
THE  LAST  VALUE  IN  EACH  ROW  ON  EACH  LED 

£* *******************************************************!>********************* 

EXTERNAL  IO$WRITEVBLK, IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) , BUF( 8192 ) , IOSB(  4 ) 

INTEGER  SYSSASSIGN , XTCHAN , SYSSQIOW , SYS$GETMSG 
BYTE  DAC (64) 

CHARACTER* 80  MSGBUF 
DATA  ITIMES/0/ 

ISTATUS-SYS$ASSIGN( ' XTAO ' , XTCHAN , , ) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  -CHANNEL  ASSIGN' 

NWORDS-8192  1  NUMBER  OF  MEMORY  LOCATIONS  PER  REFERENCE  128X64 

nbytes-2*nwords 

N-l 

155  TYPE*, 'ENTER  DAC  NUMBER  TO  TURN  ON,  ENTER  NEGATIVE  TO  COMPLETE' 

READ (5,33) DAC ( N ) 

33  FORMAT (12) 

IF(DACfN) . GT . 0 ) THEN 

N-N+l 

GO  TO  155 

END  IF 

N-N-l 

DO  J-l,nwords 
BUF( J)-'0'O 
ENDDO 

TYPE  *, 'ENTER  DATA  FOR  DAC' 

READ( 5 , 555 ) IDATA 
555  FORMAT ( 03 ) 

DO  I«1,N 

TYPE  * , ' DAC  NUMBER- ' , DAC ( I ) 

DO  K-l+( ( DAC( I)-l)*128),128+(( DAC ( I ) — 1 ) *128 ) 

BUF(K) -IDATA 
ENDDO 

ENDDO 

ISTATUS— 5YS$QIOW{ %VAL( 1 ) , %VAL( XTCHAN) , %VAL( %LOC( IOSWRITEVBLK ) ) ,IOSB,  ,  , 
1BUF ( 1 ) , %VAL ( NBYTES ) , , , , ) 


SSEQUENCE . FOR 


IF( .NOT. I STATUS. OR. . NOT . ZOSB ( 1 ) ) THEN 
ISTATUS-SYSSGETMSG  ( %VAL{ I STATUS ) ,  MSGLEN,  MSGBUF , , ) 

TYPE  * / '  ISTATUS-' ,ISTATUS,'  IOSB(  1 )-' , IOSB(  1 ) 

TYPE  *,'  ISTATUS- ' , I STATUS , '  IOSB( 1 )-' , IOSB( 1 ) 

IP( .NOT.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *, ' QIO  PARAMETER  STATUS MSGBUF 
MSGBUF" 9  9 

ISTATUS-SYSSGETMSG  ( %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF( .NOT.ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' , MSGBUF 

IF( .NOT.ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

IF( .NOT.IOSB(l) )TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

1111  ISTATUS-SYS$QIOW(%VAL(l) , %VAL ( XTCHAN ) , %VAL( %LOC( IOSREADVBLK) ) , 

1IOSB, , , 

1RBUF ( 1 ) , % VAL ( NBYTES ),,,,) 

END 


T-2 


APPENDIX  U 


SWITCHTEST . FOR 


APPENDIX  U 


SWITCHTEST . FOR 


EXTERNAL  10$WRXTEVBLK( IO$READVBLK 
INTEGER* 2  RBUF( 8192 ) ,BUF< 8192 ) , IOSB( 4 ) 

INTEGER  SYS$ASSIGN , XTCHAN , SYS$QIOW , SYS$GETMSG 
CHARACTER* 80  NSGBUF 
DATA  ITIMES/0/ 

ISTATUS— SYS$ASSIGN( 'XTAO' , XTCHAN, , ) 

IF( .NOT. I STATUS ) TYPE  *, 'ERROR  IN  AMD  XT  CHANNEL  ASSIGN' 
type  *, 'Enter  number  of  memory  locations  to  test.' 
accept*, nwords 
nbytes-2*nwords 
do  100  i test-1, 5 
continue 

DO  J-l, nwords 

buf ( j )-( j-1) *2 

if ( itest.eq. 1 )BUF( J )-J 

if ( itest.eq. 2)buf{ j )-0 

if ( itest.eq. 3 )buf ( j )-' 377 'o 

if ( itest.eq. 4) buf (j )-'125'o 

if ( itest.eq. 5) buf ( j )-'052'o 

ENDDO 

ISTATUS-SYS$QIOW(%VAL(l) , %VAL ( XTCHAN ) ,%VAL( %LOC( IO$WRITEVBLK) ) ,IOSB 
1BUF ( 1 ) , %VAL ( NBYTES ) , ,  ,  ,  ) 

IF( .NOT. I STATUS. OR. . NOT . IOSB ( 1 ) ) THEN 
I STATUS— SYS$GETMSG  ( %VAL( I STATUS ) ,  MSGLEN,  MSGBUF , , ) 

TYPE  *,'  ISTATUS-' , I STATUS, '  IOSB(l)-' ,IOSB(l) 

TYPE*,'  ISTATUS-', ISTATUS,'  IOSB( 1 )-' , IOSB( 1 ) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS— SYSSGETMSG  { %VAL( IOSB( 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  $GETMSG' 

TYPE  * , ' I/O  STATUS ; ' , MSGBUF 

IF ( .NOT. ISTATUS) TYPE*, 'PARAMETER  ERROR  IN  XT  OUTPUT' 

I F ( . NOT . IOSB ( 1 ) ) TYPE  *,'I/0  ERROR  IN  XT  OUTPUT' 

END  IF 

ISTATUS-SYS$QIOW( %VAL( 1 ) , %VAL( XTCHAN ) , %VAL( %LOC( IO$READVBLK) ) , 
1IOSB, , , 

1RBUF( 1 ) , %VAL( NBYTES ),,,,) 

DO  I -1, NWORDS 

IF( IAND(BUF( I ) , '377'0) .NE . IAND( RBUF( I ) , ' 377 '0 ) )THEN 
WRITE(6,11)I,IAND(BUF(I) ,'377'0),IAND(RBUF(I),'377'0) 


SWITCHTEST . FOR 


TOW IAT('**  MEMORY  R/W  ERROR  AT', 06,'  INPUT- ', IX , 06 , 

1'  OUTPUT-', 06) 

ENDIF 
END  DO 

continue 

ITIMES— ITIMES+1 

type  *, 'MEMORY  SWITCH  test  complete  with  the  above  errors.', 
1'  ON ' , NWORDS ,  '  LOCATIONS' 

GO  TO  1111 
END 
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RV* 
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CONP 

PORA 

PORB 

PORC 

DATA 

TEMP 

OATA 

DGROUP 

CODE 

PUBLIC 
UR I TEC 


y 
y 

Vl 

I 

& 

l*. 

t 

s 


EQU  0AFB3H 
EQU  OAFBOH 

EQU  OAFS 1 H 

EQU  0AF82H 

SEGMENT  PUBLIC  'DATA1 

DU  4 

ENDS 

GROUP  DATA 

SEGMENT  'CODE1 

ASSUME  CS : CODE , DS : DGROUP , SS : DGROUP 

UR I TEC 


NEXT: 


MOV  SP , 

POP  BP 

RET  OSH 

UR  I TEC  ENDP 
CODE  ENDS 
END 


FAR 

BP 

BP ,  SP 
CL  I 

MOV 

DX , CONP 

MOV 

AL, 10  ;  RESET  READ. 

OUT 

DX ,  AL 

MOV  ■ 

AL,9  ;  RESET  READY 

OUT 

DX  ,AL 

MOV 

DX.PORA 

LES 

BX , DUORD  PTR  CBP+103 

MOV 

CX ,ES: CBX3 

MOV 

TEMP , CX 

LES 

BX, DUORD  PTR  CBP+63 

MOV  CX 

,0 

MOV 

AL.ES: CBX] 

OUT 

DX  ,  AL 

INC 

BX 

INC 

BX 

INC 

BX 

INC 

BX 

INC 

CX 

CMP 

CX , TEMP 

JNE 

NEXT 

MOV 

DX , CONP 

MOV 

AL ,  9  ;  SET 

OUT 

SP ,  BP 
BP 

OSH 

DX  ,  AL 

;  ADDRESS  OF  PARAM  1  ES:CBX3 


;  ADDRESS  OF  PARAM  2  ES:CBXj 


;  VALUE  OF  PARAM  1  IN  AL 


;  INCREMENT  DATA  ADDRESS 


'Jjrvur.  fS 


v>:<ii.*li.^,«;4,*^><»it:t<.!i»>: 


CONP 

EQU 

0AF83H 

PORA 

EQU 

0AF80H 

PORB 

EQU 

OAFS1H 

PORC 

EQU 

OAFSSH 

DATA 

SEGMENT 

PUBLIC 

1  DATA ' 

TEMPS 

DATA 

DW 

ENDS 

0 

D6R0UP 

GROUP 

DATA 

CODE 

SEGMENT 

•CODE’ 

PUBLIC 

ASSUME 

READC 

CS : CODE , 

DS : DGROl 

READC 

PROC 

PUSH 

FAR 

BP 

BP,SP 
CL  I 
MOV 


CHECK : 
CHECKS : 


FIRST: 


;  SET  READ.  PIN  IS 
;  reSET  READY  LINE.  PIN  13 


DX , CONP 

•  AL , 1 1 
DX,AL 
AL ,  S 
DX  ,AL 
AL ,  9 
DX  ,  AL 
CX,0 

CX 

CX,S5 

WAIT 


BX, DWORD  PTR  CBP+101 
CX ,ES: CBX3 
TEMPS, CX 

BX, DWORD  PTR  CBP+63 
CX,0 

al  ,  a 

DX  ,  AL 

DX.PORC 

AL,DX 

AL ,  3S 

CHECKS 

DX.PORB 
AL ,  DX 

ES : CBX  3 , AL 

BX 

BX 

BX 

BX 

CX 

CX, TEMPS 
CHECK 


;  ADDRESS  OF  1ST  PARAM 

; STORE  NUMBER  TO  READ 
;  ARRAY  ADDRESS 
;  INITIALIZE  COUNTER 


DX ,CONP 


a^Sj, 
b 


I 

% 


WWW  UJ  Wv  yr.  wv  iru  «T.  wu  «  m;  r.  n  »v.™  ~  «  -  -  «*  -r^j 


MOV 

MOV 

MOV 

SP.BP 

POP 

BP 

RET 

08H 

READC 

ENDP 

CODE 

ENDS 

END 

ii 


H 


OX  ,  0 
AH,  0 


B 


| 


w 

I 


SI 


CONP 

PORA 

PORB 

PORC 


EQU 

EQU 

EQU 

EQU 


0AF83H 

0AF80H 

OAFS1H 

0AF82H 


DATA 

DATA 

DGROUP 

CODE 

PUBLIC 

INITC 


SEGMENT  PUBLIC  ‘DATA1 
ENDS 

GROUP  DATA 

SEGMENT  ' CODE  1 

ASSUME  CS  CODE  ,  DS :  DGROUP ,  SS :  DGROUP 

INITC 


PROC 

FAR 

PUSH 

BP 

- 

MOV 

BP ,  SP 
CL  I 

MOV 

DX.CONP 

MOV 

AL, 167 

OUT 

DX  ,AL 

MOV 

SP ,  BP 

POP 

BP 

RET 

OOH 

DATA 

DATA 


SEGMENT  PUBLIC 
ENDS 


'  DATA ' 


DGROUP 

CODE 


PUBLIC 
I  AND 


GROUP  DATA 

SEGMENT  • CODE ' 

ASSUME  CS  s  CODE , DS : DGROUP , SS : DGROUP 
I  AND 

FAR 
BP 


PROC 

PUSH 


MOV 

LES 

MOV 

MOV 

MOV 

MOV 

POP 

RET 


BP,SP 

BX.DWORD'PTR  CBP+63 

AL , ES : CBX 3 

AH ,  0 

DX  ,  0 

SP ,  BP 

BP 

04H 


I AND  ENDP 
CODE  ENDS 
END 


U-7 


CONP 

EQU 

0AF83H 

PORA 

EQU 

0AF80H 

PORS 

EQU 

0AF81H 

PORC 

EQU 

OAF82H 

DATA 

SEGMENT 

PUBLIC 

•  DATA  * 

DATA 

ENDS 

DGROUP 

GROUP 

DATA 

CODE 

SEGMENT 

•  CODE  1 

ASSUME  l 

CS:CODE, 

DS: DGROUP 

PUBLIC 

LOOP 

LOOP 

PROC 

FAR 

PUSH 

BP 

MOV 

BP.SP 

CL  I 

MOV 

DX , CONP 
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♦  includes  1 \forintf .h' 

PROGRAM  KEYPEAK 

INTEGER*2  IV, IN, ic, iy, ix, ival 

integer*2  x  1 , x2 , y 1 , y2 , va I , ipeak 

integer *4  value, buffer ( 2S6 ) , posx ( 100 ) , posy ( 100) 
character  BUF < 256 ) , TEMPO 
INTEGER*2  TEMP 

INTEGER*2  MAP, COLOR, ST ART, LENGTH 
EQU I VALENCE  < TEMP , TEMPO ) 

DATA  MAP , COLOR .START , LENGTH / 3 , 2 , 0,236/ 
i»init<620> 
call  chan<2) 
c  call  auto 

call  sync(l) 
c  cal  1  snap ( 1 ) 

CALL  CGRAB(l) 

CALL  LUTM  <  MAP ) 

1  write<*, ' (40H  ENTER  MAXIMUM  MAPPING  THRESHOLD. (0-255) )' > 

READ  <  * , * ) I PEAK 
do  209  iy« 1,236 
IF ( IY-1 .LT . IPEAK ) THEN 
TEMP-IY-1 
BUF  < IY)=T£MPC 
ELSE 

TEMP*233 
BUF ( I Y ) =TEMPC 
END  IF 

209  continue 


CALL  LUTD ( MAP , COLOR , START , LENGTH , BUF ) 

GO  TO  1 

call  pexit 

stop 

end 
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* include: '\forintf.h* 

•LARGE 

PROGRAM  CREAOI 
EXTERNAL  INITC.READC 
INTEGER  INITC.READC 
INTEGER*2  IV, IN,ic,iy,ix,ival 
int»g«r*2  xl , x2,yl ,y2,val , ipaak 

int»g»r*4  valua.buf far (236) ,posx( 100) ,po*y( 100) 
INTEGER  DAT ( 0192 ) ,INUM 
I-INITC< ) 

INUM-8192 
I *READC < INUM.DAT > 

WRITE(*, 1 (22H  AFTER  REFERENCE  READ.)’) 

i*init<620) 

ival*2 

cal  1  chant ival ) 
ival»l 

call  sync(ival) 
call  quadm(l) 
call  dquad(O) 

X1*0 
Y1*0 
X2*31 1 
Y2=31 1 

CALL  RECT ( X 1 , Y1 , X2 , Y2 ) 

DO  109  IY=1,64 

DO  100  IX*1,120 

VALUE=DAT< IX+< IY-1 )*128) 

call  pixw<  < ix-1 )*2, < iy-1 )*2,valua> 

call  pixw<  < ix-1 )*2, < ( iy-1 )*2)  +  l ,valua) 

call  pixw< ( ( ix-1 )*2)+l , < ( iy-1 )*2>+l , valua) 

call  pixM<  <  < ix-1 )*2)+l , < iy-1 ) *2, valua) 

100  continui 

109  continua 

writa<*, 1 < 18H  IMAGE  ON  DISPLAY.)*) 
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♦includes ‘ \for intf .h ' 

•LARGE 

PROGRAM  STORE I MG 
EXTERNAL  INI TC , READC , I TODSK 
INTEGER  INITC, READC 
I NTEGER*2  I TODSK , I STATUS 
INTEGER*2  IV, IN, ic, iy, ix, ival 
intagar*2  xl ,x2,yl ,yS,val , ipaak 
INTEGER*2  BSI2E,QUAD 
CHARACTER* 13  FNAME 
CHARACTER  WORKBUFFER ( 4096 ) 

intagar*4  valua.buffar (236) ,posx< 100) ,po*y( 100) 
I NTEGER  DAT ( 8 1 92 ) , I NUM 
DATA  BSIZE/4096/ 

I*INITC  (  ) 

INUM*8192 
I*READC< I NUM , DAT ) 

WR I TE  <  * , ' ( 22H  AFTER  REFERENCE  READ.)') 

i*init<620) 

ival *2 

call  chan(ival) 
ival*l 

call  sync(ival) 

.call  quadm< 1 ) 
call  dquad(O) 

X1*0 
Y  1*0 
X2*S11 
Y2*3U 

CALL  RECT ( X 1 , Y 1 , X2 , Y2 ) 

DO  109  IY*1 ,64 
DO  10B  IX-1,128 
VALUE»DAT  < I X*< I Y-i ) *128 ) 
call  pixw< ix-1 , iy-l ,valua) 

108  continua 

109  continua 

writat*, ' < 18H  IMAGE  ON  DISPLAY.)') 

FNAME* 'REFER. IMG' 

I STATUS* I TODSK ( BS I 2E , QUAD , FNAME , WORKBUFFER ) 
call  paxit 
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c 

C  THIS  ROUTINE  IS  THE  CORRELATOR  REFERENCE  MEMORY  READ/WRITE 

C  TEST  ROUTINE 

C 

C . 

•LARGE 

PROGRAM  RWCMEM 
PROGRAM  MAIN 

EXTERNAL  READC,WRITEC, I AND, IN IT 
INTEGER  INUM, LOOP, READC.WRI TEC, IAND, INIT 
INTEGER  DAT (B192) ,DAT2<8192) 

DO  2  1*1 ,8192 
DAT ( I ) *  I 

C  DAT ( I ) *233 

2  CONTINUE 

I*INITC<  ) 

INUM=8192 
1  CONTINUE 

I *WR I TEC  C INUM , DAT) 

I*READC( INUM, DA T2) 

DO  100  1*1, INUM 
1 1* I AND ( I ) 

IF  <  DAT2( I ) .NE. II )WRITE<*, 1 < IX ,216) 1 ) II ,DAT2( I ) 

100  CONTINUE 

WR I TE < * , * ( 36H  COMPLETE  WITH  THE  ABOVE  DIFFERENCES)') 

GO  TO  1 

END 
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♦includes ' \for intf .h * 

♦LARGE 

PROGRAM  DOWN I MG 

EXTERNAL  1NITC ,READC , ITODSK , IFRDSK , WRITEC 
I NTEGER  I N I TC , READC , I FRDSK , WR I TEC 
INTEGERS  1 TODSK ,  I  STATUS 
INTEGERS  IV,IN,ic,iy,ix,ival 
integer*2  xl ,x2,yl ,y2,val , ipeak 
INTEGERS  BSIZE.QUAD 
CHARACTER* 13  FNAME 
CHARACTER  UORKBUFFER <  4096 ) 

integer *4  value .buffer ( 256 ) ,  posx ( 100) ,posy( 100) 
INTEGER  DAT (8192) , INUM, IMAGE ( 128,64) 

EQU I VALENCE ( DAT , I MAGE ) 

DATA  8SI2E/4096/ , QUAD/O/ 

i*ini t  <  620 ) 
ival*2 

cal  1  chan( i val ) 
i val*l 

call  sync ( i val ) 
call  quadm< 1 ) 
call  dquad(O) 

X 1  =0 
Y 1  =0 
X2-51  1 
Y2-S11 

CALL  RECT(X1,Y1,X2,Y2) 

FNAME- 'REFER. IMG' 

I STATUS- 1 FRDSK  <  BS I ZE , QUAD , FNAME , UORKBUFFER ) 

DO  109  IY-1,64 
DO  108  IX-1,128 
VALUE- Ip ixR< ix-1 , iy-1 ) 

I MAGE ( IX, IY) -VALUE 

108  continue 

109  continue 

wr ite<  *, ' < 19H  DOWNLOADING  IMAGE.)') 

I-INITC ( ) 

wr i te( *, ' < 13H  AFTER  INITC.)') 

INUM— 8192 
I-WRITEC( INUM, DAT) 

WR I TE ( * , ' < 19H  DOWNLOAD  COMPLETE.)’) 


* include* ' Sforintf .h 1 
PROGRAM  RTIME 

INTEGERS  ST  ATE  .CHANNEL,  MODE 

STATE- 1 

MODE-1 

CHANNEL *2 

CALL  CGRAB ( MODE ) 

CALL  SYNC (MODE) 

CALL  CHAN < CHANNEL ) 

END 
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THIS  ROUTINE  READS  CORRELATOR  REFERENCE  MEMORY  AND  COMPARES  IT  TO 
AND  INCREASING  SEQUENCE 


PROGRAM  RCMEM 
EXTERNAL  INITC.READC 
I NTEGER  I NUM , I N I TC , READC 
INTEGER  DAT  0192) 

I*INITC< ) 

-INUM^S 

READ ( * , 1 < 14) 1 ) INUM 
write<*, ' ( 11H  Starting..)') 

CONTINUE 

I=READC( INUM.DAT) 

DO  3  I»1 , INUM 

IF< I .LT.S)WRITE(*, * ( 1X,6H**0K**J2I&) '  ) I , DAT  < I ) 

II=IAND( I ) 

IF ( DAT ( I ) .NE. II )  UR  I TE  <  * , ' ( 1 X , 2 I 6 ) ' ) II ,DATC I ) 

CONTINUE 

writ*<*, ' ( lx,3AH  complete  with  the  above  differences)') 
GO  TO  1 
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includss ! \forintf .h 1 

THIS  ROUTINE  IS  USED  TO  STOP  THE  FRAME  BUFFER  IMAGE  FROM  BEING 
WRITTEN  CONTINUOUSLY 

PROGRAM  STOP 
INTEGER *2  STATE 
STATE-0 

CALL  CGRAB< STATE) 
call  snap(l) 

END 
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S  includes ' Vforintf .h  1 
PROGRIM  HISTO 

integer*4  value ,buf f er < 236 > 

i«init<620> 

call  chan<2> 

call  sync(l) 

call  snap(l) 

value* ihisto (buffer ) 

call  dhisto< value, 30. 470, 200, 0,0, buffer) 

call  pexit 

stop 

end 
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♦include: '\forintf.h' 

PROGRAM  PEAK 

INTEGER*2  IV, IN, ic, iy , ix, ival 
integer*2  xl ,  x2,  y  I ,  y2,  val ,  ipeak 

integer *4  value, buff er  <256) ,posx C 100 ) , posy ( 100  > 
character*!  box 
218  format(al) 

i*init<620> 
call  chan<2) 
call  auto 
call  sync(l) 
call  snap(l) 

C  value=0 

C  do  109  iy=l ,512 

C  do  108  ix-1 ,312 

C  call  pixw< ix , iy, value) 

CIOS  continue 

Cl 09  continue 

C  I  X=>236 

C  IY*236 

C  VALUE3 100 

C  CALL  PIXU< IX, IY, VALUE) 

C  wr i te<  * , '  (  16H  AFTER  WRITING..)’) 

ipeakcnt=l 

ipeak=-255 

do  209  i y=l ,512 

do  208  ix=l,312 

ival»ipixr ( i x , iy ) 

if < ival .gt . ipeak ) then 

ipeak^ival 

posx  (  ipeakcnt  >=*ix 

posy< ipeakcnt )«iy 

end  if 

c  wr i te<  * , * )  i x , ival 

208  continue 

209  continue 

wr  i  te<  *, * ) ipeak ,  posx  <  1 ) , posy ( 1 > 

call  pexit 

stop 

end 
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PROGRAM  WCMEM 
EXTERNAL  WRITEC.INITC 
INTEGER  INUM.WRI TEC, INITC 
INTEGER  DAT (9192) 

DO  2  I»l ,8192 
DAT ( I )*I 
DAT  < I ) =255 
CONTINUE 

I=INITC< ) 

INUM=8192 

CONTINUE 

I=WRITEC< INUM.DAT) 

WRITE!*, 1 ( lX,/,3< IX, 16) ) ' ) I, INUM, DAT ( l > 
GO  TO  1 
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Thi*  routine 
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is  used  for  loading  a  contant  into  correlator  reference 


PROGRAM  SELDAT 
EXTERNAL  WRITEC, INITC 
INTEGER  INUM.WRI TEC 
INTEGER  OAT  <  B192 ) 
write<*, ’ <41H  ENTER  DATA 
readt*, *  < 13) ‘ ) IDAT 
DO  2  1-1,8192 
DAT ( I )«IDAT 
DAT ( I ) *233 
CONTINUE 

I-INITCC ) 

INUM-8192 

CONTINUE 

I =WR I TEC ( I NUM , DAT ) 

WR I TE  ( * , 1 (1X,/,3(1X,I6) ) 1 
GO  TO  1 

END 


VALUE  TO  BE  LOADED  < 0  -  2SS ) . >  *  > 


) I , INUM, DAT  < 1 ) 
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